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IDENTIFICATION 
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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS 
A COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
en FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIJS yoy IS ey 
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE 
BE COPIED (WITH INCLUSION OF 
LY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN 
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1.0 


ABSTRACT 


THIS DIAGNOSTIC TESTS THE RH11 AND DCL OF AN RP04/5/6 yg pt 
IT DOES NOT USE THE DISK SURFACE OR ANY SIGNALS FROM THE MDLI. 
1T REQUIRES THAT THE DCL CABLE BE PLUGGED INTO THE MDLI OR 
BE APPROPIATELY TERMINATED. IF THE DISK IS POWERED UP, IT 

IS REQUIRED TO GET THE DISK TO THE ‘HEADS UNLOADED’ POSITION. 
AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS DIAGNOSTIC 

IT CAN BE ASSERTED THAT, 

DATA OR DATA ee ett LOGIC IS WORK 

IMPLIES THAT, THAT T OF THE LOGIC WHICH HANDLES {MECHANICAL 
COMMANDS OR ITS ASSOCIATED LOGIC IS NOT TESTED IN THIS 
DIAGNOSTIC. ALL DATA COMMANDS USE THE MAINTENANCE REGISTER 
IN THE WRAPAROUND MODE. 


THE DIAGNOSTIC DOES NOT DO ANY TESTING OF THE RH70 CONTROLLER 
WHEN IT IS USED TO TEST RPO4/5/6 DISK DRIVES CONNECTED TO 
THAT TYPE OF CONTROLLER. IT IS ASSUMED THAT THE RH70 
SPECIFIC CONTROLLER DIAGNOSTICS HAVE BEEN SUCCESSFULLY RUN TO 
COMPLETION BEFORE “HIS PROGRAM IS RUN. 


REQUIREMENTS 
EQUIPMENT 


PDP-11 COMPUTER WITH CONSOLE TELETYPE. AND AN RPO4/5/6 DISK SYSTEM. 


THE RPO4/5/6 DISK SYSTEM WILL CONSIST OF AN RH11/RH70 CONTROLLER, 
AND DISK CONTROL LOGIC (DCL). THE CABLE FROM THE DCL CAN BE 


CONNECTED TO THE MDLI, BUT IF NOT THAT CABLE MUST BE PROPERLY 
TERMINATED. 


STORAGE 
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY. 
PRELIMINARY PROGRAMS 


THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRJG- 
(LATEST REV) HAS BEEN RUN WITHOUT ERRORS 


LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 

STARTING PROCEDURE 

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN 
RH70 CONTROLLER. IT CAN BE SET AT THE FRONT PANEL, OR IN THE 
SOFWARE SWITCH REGISTER IF THE OPERATOR SO DESIRES. SEE 
PARAGRAPH 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 
OPERATION. 

CONTROL SWITCH SETTINGS 


SEE SECTION 5.1 
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4.2 STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 
START AT ADDRESS 204---TO SELECT NON-DEFAULT PARAMETERS 
START AT ADDRESS 210---FOR UNIT SELECTION 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPO04/5/6'S ON THE SYSTEM WILL BE 

TESTED ONE AT A TIME BEFORE ‘END PASS’ IS PRINTED OUT. 

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 

THAT IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 

THAT IS POWERED UP. 


204 RESTART 

SAME AS 200 START WITH FOLLOWING EXCEPTIONS: PROGRAM WILL 

QUERY OPERATOR FOR THE CORRECT CSR AND VECTOR ADDRESS OF THE RHXX 
CONTROLLER. WHEN THIS ACTION HAS BEEN COMPLETED, THE PROGRAM 
WILL AUTOMATICALLY RESTART FROM ADDRESS 200, WITH THE SAME 
CONVENTIONS AS DESCRIBED FOR A 200 START. 


210 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 
NUMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM. 


PROGRAM AND/OR OPERATOR ACTION 
LOAD THE PROGRAM INTO MEMORY. 
SET STARTING ADDRESS ON THE SWITCH REGISTER 
PRESS "LOAD ADDRESS"’. 


SET "OPERATIONAL SWITCH SETTINGS'’ (SEE SECTION 5.1) 
WORST CASE IS ALL SWITCHES DOWN. 


PRESS ‘'START'’. 


FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCF 

ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ‘END 

PASS'' IS PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN ‘'ACT~11"" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE 
SELECTED BEFORE ‘END PASS** IS PRINTED. THE SECOND 

AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E. 
AN 11/34) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH 
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REGISTER IS NOT PRESENT AND WILL USE AN ‘SOFTWARE’ SWITCH 
RE THE SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE 
YBOARD ROUTINE WHICH IS CALLED BY 
HE PROGRAM WILL RECOGNIZE THE 
CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM IS AT A 
HIGHER PRIORITY PROCESSING AN RP04/5/6 INTERRUPT. THE 
"SOF TWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN 
RESPONSE TIO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE aa 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NO 

REQUIRED. ‘RUBOUT’ AND ‘CONTROL U* FUNCTIONS MAY BE UseD TO 
CORRECT TYPING ERRORS DURING SWITCH ENTRY 


ON PROCESSORS WITH HARDWARE SWITCH REGISTER, pee nite 
SWITCH REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 
SWITCHES IN THE ‘UP* POSITION, ALL SWITCH REGISTER REFERENCES 
WILL BE TO THE SOFTWARE’ REGISTER AND THE PROCEDURES 
DESCRIBED ABOVE MUST BE FOLLOWED. 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ‘OPERATIONAL 
a SETTINGS'' HOWEVER THE DETAIL DESCRIPTIONS ARE GIVEN 


SWITCH 15 = HALT ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
"*CONTINUE’* WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN. 


SWITCH 14 = LOOP ON TEST 

WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP 
ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH IS SET WHEN THE PROGRAM IS IN TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED 
TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SWITCH 13 - INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 
CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS "'STOP DRIVE X"’: 
WILL CONTINUE. AT THE fe OF PASS ‘‘TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X’' WILL BE TRUE, THAT IS, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY SO. ‘ 


SWITCH 12 = RH70 CONTROLLER SELECT 

THIS SWITCH MUST BE SET AT THE START OF THE PROG WHEN THE 
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH7 

CONTROLLER. IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED 
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ARE CONNECTED TO AN rut CONTROLLER. 


SWITCH 11 = INHIBITAITERATIONS 
WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 
NOT REPEAT EACHAEST FOUR TIMES BUT WILL DO EACH TEST 


SWITCH 10 > BELL ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE "BELL" OR ALARM’ WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 IS SET YET INFORMATION IS NEEDED WHEN ANY ERROR 

IS DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

IS PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE ERROR IS NOT PRESENT. 


SWITCH 9 = LOOP ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED ‘‘SCOPE’’ STATEMENT. IF ON THE SECOND TIME 

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO 

THAT ‘‘SCOPE’’ STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET. HOWEVER 

IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM, EACH TIME THE ERROR 

1S ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

IS ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 8 - LOOP ON TEST IN SWR <7:0> 

THIS IS A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
ANOTHER MEANING. THIS MEANS THAT ANY SETTING OF SWITCH 
0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE 
POSITION. WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU 
7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE 
=o i 8 SET AND SWITCH 3 SET THE ayy ee “wat 


OGRAM THE 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH IS NOT SET THEN SWITCHES 
O THRU 7 HAVE THE MEAING ITS NAME INDICATES. 
FOR EXAMPLE SWITCH 7 IS "'STOP FURTHER COMPARES: THAT IS 
IF SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS. HOWEVER IF THIS WAS DONE WITH SWITCH 11 
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THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT W.TH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW s WITH ag 6, WHICH 

IS “ECC TEST=COMPARE END RESULT ONLY’'. THAT 1S IF SWITCH 
8 IS NOT SET AND SWITCH 6 IS SET THEN ec ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 7 = STOP FURTHER COMPARES IF SWO8 IS L 

IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO ser THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH IF SWITCH 8 IS NOT SET 


A F 

THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. IT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 - ECC TEST-COMPARE END RESULTS ONLY IF SWO8 IS LOW 
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 
AND THIS SWITCH IS SET THEN ON ECC TESTS (TEST 120 THRU 
TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND 
PATTERN REGISTERS AFTER EVERY CLOCK, COMPARES WILL BE DONE 
ONLY AT THE END OF ALL THE CLOCKS. 


SUB-ROUTINE ABSTRACTS 

SEE SECTION 9 *’SUBROUTINES** 

ERRORS 

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 

THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPO4 
REGISTERS OR GOOD/RECEIVED DATA. _IF THE ERROR gry INA 
ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 

*FATAL’ ERRORS 


IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE 
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CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
C BE CLEARED PRIOR TO THE START OF A T4ST SEQUENCE - 
ILL BE may 2 TO THE OPERATOR. IN 
THE aeahate st iti 


IF THE FAILURE CONTINUES TO OCCUR, 
THERE ARE TWO OPTIONS FOR THE OPERATOR: 


1. LOOK IN THE TEST LISTING FOR THE ‘HALT’ 
INSTRUCTION AND REPLACE IT Rtg -- THE TWO WORDS 

(‘TYPE ,CPHALT’’) ABOVE WITH ‘NOP’S. WITH TTY ERROR 
PRINTOUTS INHIBITED, A SCOPE LOOP CAN BE INITIATED 
FOR THE TEST IN QUESTION. 


2. GO BACK AND ERUN DZRPS AS IT IS QUITE POSSIBLE 
THAT A HARD FAILURE HAS OCCURRED IN ONE OF THE 
HARDWARE REGISTERS. 


IT IS ALSO POSSIBLE TO CONTINUE FROM THE HALT POINT, BUT THIS 
IS NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL EXHIBIT THE 
SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


RESTRICTIONS 


IF THERE IS A DRIVE CONNECTED THEN THE OPERATOR MUST HAVE 
THE DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B 
BUT NEVER LEAVE IT IN THE PROGRAMMABLE STATE. IF THERE 
IS NO DRIVE CONNECTED THEN THE CABLE NORMALLY GOING FROM 
THE DCL TO THE MDLI MUST BE PROPERLY TERMINATED. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
IT MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 

BECAUSE OF THIS FACT, THE PROGRAM CANNOT BE RUN IN CHAIN MODE 
WHEN USING THE SOFTWARE SWITCH REGISTER AS THE ROUTINE WHICH 
carey ig lg SWTICH REGISTER SETTINGS IS NOT OPERABLE WHEN IN 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAKE 1.75 MINUTES PER 
DRIVE. SUBSEQUENT PASSES WILL TAKE 7 MINUTE. 


STACK POINTER 

THE STACK IS INITIALLY SET TO 1000 

OFERATOR SELECTABLE SCOPE LOOPS 

HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING USAGE OF THESE LOOPS, HIT CONTROL 

C ANY TIME WHILE THE PROGRAM IS RUNNING. ON HITTING AN ERROR 


IF THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK 
- USUALLY BACK TO THE BEGINNING OF THE TEST. 
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WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED. 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: 

1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. LOOP ON ERROR SWITCH MUST BE SET 

3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


PROGRAM REVISION HISTORY 


PROGRAM DESCRIPTION 


THE FOLLOWING SECTIONS DESCRIBE EACH TEST AND SUBROUTINES 
IN DETAIL AND CAN ALSO BE USED AS AN INDEX TO THE LISTING. 
THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
“wer: THAT ITEM WILL BE FOUND. 


1 
1 
1 
1 
1 


oss A eh eh 
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;DRIVE MUST BE LOCKED ON PORT A OR PORT B 


; INTERNAL PROGRAM MACROS BEGIN HERE 


[RARER EEA ERE REE EEREAKEREERRRRRERH 


: ALL MACRO CALLS BEGINNING WITH *'.$'' ARE SUPPLIED FROM AN 
EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 


ee | 
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494 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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DISPREG: .WORD 0 7-SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 3; SOFTWARE SWITCH REGISTER 


SENDAD 331)SET LOC.46 TO ADDRESS OF $SENDAD IN .SEOP 
-WORD 20000 332)SET LOC.52 TO 20000 


STARTING ADDRESSES 


@4BEGIN NORMAL START 
@ABASE CH sMODIFY DEVICE PARAMETERS 
@ABEGIN2 ;SELECT DRIVE START 


z*STARTING ADDRESS 200 FOR NORMAL S 
Z*THIS WILL TEST ALt RPO4'S ON THE SYSTEM A SINGLE DRIVE AT A TIME 


;*STARTING ADDRESS 204 WILL LOAD NON-DEFAULT PARAMETERS 
;*AND AUTO RESTART AT 200 AFTER LOADING PARAMETERS. 


3*STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


SEQ 0012 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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SEQ 0013 
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lelelelelelelelelelon jeleleleleol ela) a) 


09° 
Se 
ad 
v 


2 


0 
2 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


<207><377><377> :: 
/?/ 


2 CONTAINS PASS COUNT 
THE ne 4 NUMBER 
ERROR FLAG 
SUBTEST Soars COUNT 
SCOPE LOOP ADDRESS 
or RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD" DATA 
ADDRESS OF "BAD* DATA 
*GOOD" DATA 


ONTAINS * DATA 
: RESERVED=-NOT TO BE USED 


3 sAUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


a OURS OF SWITCH REGISTER 
re tan OF ae REGISTER 
TY KBD STATUS 
itty KBD BUFFER 
73TTY PRINTER STATUS REG. ADDRESS 
iz TTY PRINTER BUFFER REG. ADDRESS 
;=CONTAINS NULL CHARACTER FOR FILLS 
5 ONEAT F # OF FILLER CHARACTERS REQUIRED 
sé INSERT FILL CHARS. AFTER A ‘LINE FEED" 
3" ‘TERMINAL AVAILABLE"’ A (BIT<07>=0=YES) 


:7USER DEF INED 
NUMBER OF ITERATIONS 
Z:ESCAPE ON ERROR ADDRESS 


oe : CARRIAGE RETURN 
7eLINE FEED 
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> gate DATA IN READING OR WRITING HARDWARE REGISTER 


sREG. ADDR. 

:GOOD DATA 

RECEIVED DATA 

7 SERRPC ,STSTNM,REGADR ,$GDDAT , SBDDAT 


:0,0,0,0, 


;ERROR ON DATA COMMAND 


PC 
sPC OF JSR 
3 TEST NO 

D NO 
;GOOD DATA 
sCONTENTS OF RHCS1 
;CONTENTS OF RHDS1 
> CONTENTS OF RHER1 


012350 ; SERRPC PCJSR,$TSTNM,ERWORD ,SGDDAT,CS1,DS1,ER1 
012666 0,0,0,1,0,0,0,0 


002221 ; E sERROR ON DATA COMMAND 
010246 


Se 


PC 

sPC OF JSR 

3; TEST NO 

;WORD NO. 

;GOOD DATA 

;BAD DATA 

; CONTENTS OF RHCS1 


CONTENTS OF RHDS1 
CONTENTS OF RHER1 


012324 7 SERRPC ,PCJSR,STSTNM, ERWORD ,SGDDAT , SBDDAT .CS1,DS1,ER1 
012655 70,.0.0.1,0,0.0.0.0. 


38 


AAAAAON 
and aad and ext a aad 
MSW O 


002221 : ;ERROR ON DATA COMMAND 
010050 


PC 
; TEST NO 
WORD NO. 
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012302 
012645 


000000 


000000 
012302 
012645 


002250 
010246 


012324 
012655 


012012 
012527 


002307 
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dD 2 
11:16 PAGE 17 SEQ 0016 


GOOD DATA 

;BAD DATA 

CONTENTS OF RHCS1 
:CONTENTS OF RHDS1 
SCONTENTS OF RHER1 


7 SERRPC ,STSTNM, ERWORD , SGDDAT , SBDDAT ,CS1,DS1,ER1 
:0,0,1 -0,0,0,0,0, 


SERRPC ,STSTNM,ERWORD , SGDDAT , SBDDAT ,CS1,DS1,ER1 


e e ole@e ° o o o 


;ERROR ON WRITE HEADER AND DATA 
PC 

;PC OF JSR 

: TEST WO 

sWORD NO. 

;GOOD DATA 

;BAD DATA 

;CONTENTS OF RHCS1 

sCONTENTS OF RHDS1 

: CONTENTS OF RHER1 


7 SERRPC ,PCJSR,STSTNM,ERWORD ,$GDDAT , SBDDAT .CS1,DS1,ER1 
70,0,0,1 -0,0,0,0,0, 


ae ON WRITE HEADER AND DATA 
TEST NO 

:WORD NO. 

[GOOD DATA 

;BAD DATA 

;SERRPC ,$TSTNM, ERWORD , $GDDAT , $BDDAT 


‘SERRPC,.$TSTNM, ERWORD , SGDDAT , SBDDAT 


7 
’ oe a e e ° 


CONTROLLER OR DRIVE STATUS 





CZ 
C2 


CZRJHCO,RPO4/5/6 DSKLS Bh 
CZRJHC.P11 26-JUL-78 10 


001330 005701 


012026 
012534 


002307 
005451 


011764 
012516 


012046 
012543 


002362 
006255 


012070 
012553 


002432 
006305 


MACY11 gig 4 


27-JUL-78 


RROR POINTER TABLE 


DH11 


7 1TEM13 
0 


7 1TEM14 
E 


7 1TEM15 
E 


7 1TEM16 
E 


E 2 
11:16 PAGE 18 


sPC 


s TEST NO 

sFAILING REG. ADDR 

* CONTENTS OF RHCS1 

s CONTENTS OF RHCS2 

; CONTENTS OF saad 

* CONTENTS OF RHER1 

* $ERRPC STSTNM, $BDADR,CS1,CS2,DS1,ER1 
:0,0,0,0,0,0 


WRONG DATA FROM SILO 


PC 

;REG.ADDR 

é D DATA 

;RECEIVED DATA 

7 SERRPC ,REGADR,$GDDAT , SBDDAT 


. 
’ . * o 


3 SERRPC ,TSTNM,REGADR,$GDDAT , SBDDAT 


. 
’ ° ° e ° 


sREGISTER FAILED 


PC 

sFAILING REG. ADDR 

sCONTENTS OF FAILING REG. 

;CONTENTS OF RHCS1 

= CONTENTS OF RHCS2 

> CONTENTS OF ~o) 

* CONTENTS OF RHER1 

*$ERRPC, SBDADR ,SBDDAT,.CS1,CS2,DS1.ER1 
:0, 0,0. 6, 0.0.0 


; SPECIFIED REG. NON EXISTANT SO ABORT 
;PROGRAM 
:PC 

z;ADDR. OF REG 
7 SERRPC,TEMP1 


. 
© ° 


:WAIT LOOP FAILED 
PC 


SWAT PC 
‘BIT WANTED 


SEQ 0017 





C2 
C2 


. @ 
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zREG. ADR. 

;REG. CONT. 
001402 012100 DT16 :SERRPC ,$TMP3,$TMP1,$TMPO, SBDDAT 
001404 012556 DF16 :0,0,0,0 


3 1TEM17 
001406 002453 EM17 WRITE CHECK FAILING 
001410 006443 PC 


; EST _NO 
: CONTENTS OF RHBA 


:CONTENTS OF RHCS1 

[CONTENTS OF RHCS2 
012116 SERRPC ,$TSTNM, $BA,DB,WC,CS1,CS2 
012563 :0,0,0,0,0.0.0 


; ITEM20 
002477 E sREGISTER FAILING 
006620 aa 


TST NO 

[CONTENTS OF RHER1 

[CONTENTS OF RHER2 

CONTENTS OF RHER3S 

CONTENTS OF RHAS 

[CONTENTS OF RHDS1 

: SERRPC ,TSTNM ER1,ER2,ER3,AS,DS1 


3 1TEM21 
ata FAILING 


: T NO 

;CONTENTS OF RHCS1 

; CONTENTS OF RHAS 

sCONTENTS OF RHDS1 
012156 : SERRPC,TSTNM,CS1,AS,DS1 
012601 :0,0.0,0,0 


7 1TEM22 

002542 E s;MISSMATCH_IN DRIVE PRESENT 
;LOOKING AT RHAS AND a acetic 
DRIVE PRESENT DO NOT AGREE 
:NOTE: ON DUAL PORT SYSTEM 
DRIVE ON OTHER PORT WILL NOT GIVE NED 
: HENCE THERE WILL BE A MISSMATCH 
;177777-MEANS NOT PRESENT 

007110 


*PC 

TEST NO 
;RHAS UNIT 
;RHCS2 UNIT 





CZRJHCO,RPO4/5/6 DSKLS CTRLR2 
26-JUL-78 10:05 


CZRJHC P11 


001442 
001444 


001446 


001450 


012172 
012606 


000000 


000000 


012172 
012606 


012204 
012612 


003236 


007204 


012204 
012612 


002307 
007362 


012224 


MACY11 30A(1052) 27=JUL-78 
ERROR POINTER TABLE 


DT22 
DF 22 


1 TEM23 
0 


DT22 
DF 22 


ITEM 24 


DH24 


DT24 
DF 24 


ITEM 25 
EM25 


DH24 


G 2 
11:16 PAGE 20 SEQ 0019 


;SERRPC ,TSTNMS,$GDDAT , S$BDDAT 


;MISSMATCH_IN DRIVE PRESENT 

LOOKING AT RHAS AND RHCS2-NED(BIT#12) 
ZDRIVE PRESENT DO NOT AGREE 
:177777-MEANS NOT PRESENT 


PC 

STEST NO 
[RHAS_UNIT 
;RHCS2 UNIT 


$ERRPC, TSTNMS, SGDDAT , SBDDAT 


. 
* * * - 


;LOOK AHEAD REGISTER AT THE 
a OF A SECTOR IS IN 


GOOD RHLA 

[SECTOR NO 

SECTOR CLOCK 

TSERRPC DST, S$BDDAT,$TMP1,$TMP2,$TMP3 
:0,0,0,0,0 


;LOOK AHEAD REGISTER IS 
; IN ERROR 


CLOCK 
“SERRPC, DST, SBDDAT ,STMP1,$TMP2 ,$TMP3 


e e e ° ’ 


; CONTROLLER OR DRIVE STATUS 


PCO 
‘FAILING. REGISTER ADDRESS 
; CON OF RHCS1 


‘CONTENTS OF RHER1 


7 SERRPC ,PCJSR,S$BDADR.CS1,CS2,DS1,ER1 





CZ 
4) 


~_ 
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001504 012621 DF 26 :0,0,0,0.0,0, 


oO 
™~ 
mn 


—s 


ERROR IN READING OR WRITING HARDWARE REGISTER 
iPC 
sPC OF JSR 
; TEST NUMBER 
FAILING ee 
[GOOD DAT 
RECEIVED DATA 


012246 ;SERRPC .PCJSR, TSTNM,REGADR,$GDDAT , $B8DDAT 
012631 3:0,0,0,0,0,0 


a ee ee ee ee 


; 1TEM30 
E 


: CURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG. 
“PC OF JSR 
“REGISTER ADDRESS 
“GOOD DATA 
;BAD DATA 


012264 ;SERRPC ,PCJSR,REGADR,$GDDAT , SBDDAT 
012637 :0.0.0.0.0 


3 1TEM31 
003420 E ECC GENERATED IS INCORRECT 
EVERY WORD IN THIS SECTOR 1S GIVEN IN ‘DATA USED" 


010662 


; G00 

WRITTEN ECC1 
[WRITTEN ECC2 
[DATA USED 


012372 ;SERRPC ,TSTNM,GECC1,GECC2,WECC1 ,WECC2,DISK 
012676 :0,0,0.0,0.0,0 


7; 1TEM32 
003543 E ;0N READ COMMAND AFTER DATA AND ECC HAVE BEEN READ 
ECC gf esisree OR RHER1 IS IN ERROR 
Y LOWER 11 BITS OF PATTERN REGISTER 
‘CaN BE READ 
:THIS SHUOLD MATCH LOWER 11 BITS OF ECC1 
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001540 011035 DH35 PC 

: TEST NUMBER 
;GOOD ECC1 
:GOOD ECC2 

;PATTERN REGISTER 

;RHER1 

912412 sSERRPC, TSTNM,GECC1,GECC2.EC2.ER1 
012705 7:0,0,0,0,0,0 


3 1TEM33 
EM33 at COUNT BIT NOT HIGH AFTER 38859 CLOCKS 


re OF JSR 
; TEST NUMBER 


“POSITION REG. 
PATTERN REGISTER 


012434 sSERRPC..PCJSR, TSTNM,.MR,EC1,EC2 
012715 30,0,0,0.0.0 
7 1TEM34 

004104 E ;ZERO DETECT BIT NOT HIGH WHEN THE 
:32 BIT ECC REGISTER HAS ITS 21 BITS 
OF ZEROS 
sERROR PRINTOUT WILL CONTINUE TILL 
sZEnO DETECT BIT IS HIGH 


‘pC OF JSR 
; TEST NUMBER 


[RHMR 
POSITION REG. 
PATTERN REGISTER 


012434 7 SERRPC .PCJSR,TSTNM,MR,EC1,EC2 
012715 30,0,0,0.0.0 


004032 
011232 


011232 


: 1TEM35 
004177 E sPOSITION REGISTER OR 11 BITS OF 
sPATTERN REGISTER INCORRECT 
sLOWER 11 BITS OF PATTERN REGISTER 
:SHOULD MATCH LOWER 11 BITS OF GOOD ECC1 
‘DATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL 


011370 
R 
ION 
TION 


ee ek ek ek ek kk ed ed ed ed ed od td dt a oo oo ot 0 23 OO OV OO OO 


TEST NUMBE 
ZECC POSIT 


:GOOD POS 
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aw 
NN 
Dw 


;GOOD ECC1 
GOOD ECC2 
ECC PATTERN 
DATA ENVELOPE 
sN-CODE ZEROS 


012452 7SERRPC,TSTNM,EC1,POSITI,GECC1,GECC2,EC2,DATENV,ZCODE 


012723 :0,0,0,0,0,0,0.0,0 


7; 1TEM36 
sere f :0N A READ COMMAND WITH NON CORRECTABLE 
011035 TERROR INSERTED DCK AND ECH SHOULD BE SET 


PC 

7 TEST NUMBER 

7GOOD ECC1 

;GOOD ECC2 
sPATTERN REGISTER 
aa REGISTER 


012412 7 SERRPC,TSTNM,GECC1,GECC2,EC2,EC1,ER1 
012705 :0,0,0,0,0.0.0 


sERROR ON DATA COMMAND 
[WITH A16 A17 USED 

PC 

; TEST NO 

WORD NO. 

;GOOD DATA 

BAD DATA 

;CONTENTS OF RHCS1 

= CONTENTS OF RHDS1 

* CONTENTS OF RHER1 


012302 7SERRPC ,STSTNM, ERWORD ,SGDDAT , $8DDAT ,CS1,DS1,ER1 
012645 :0.0,1,0.0,0,0,0, 


fk kk kk ek ek ek ek ed kk ed ed ed ed od a ot ot ot a oO I OS SM OO OO SO 


;SERRPC ,STSTNM,ERWORD, $GDDAT , $BDDAT,CS1,DS1.ER1 
:0,0,1.0,0,0,0.0, 


no oo 
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004752 EM40 ; THERE WAS A READ/WRITE HEADER & DATA 
ERROR DURING ‘DTE* TEST SETUP = THE 
TEST IS ABORTED AT THAT POINT 
011607 “PC 


TEST NO 

FAILING REGISTER ADDRESS 

CONTENTS OF RHCS1 

CONTENTS OF RHCS2 

CONTENTS OF — 

ZCONTENTS OF RHER1 
012.76 SERRPC ,$TSTNM, SBDADR,CS1,CS2,DS1,ER1 
012774 :0,0,0,0,0,0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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012744 
PC, TEST REGISTER ADDRESS. 


PC, TEST REGISTER ADDRESS. 
014730 


013073 


PC, TEST REGISTER ADDRESS CORRECT, ACTUAL. 
014733 


013130 

014471 

appa’ PC,TEST REGISTER ADDRESS CORRECT, ACTUAL. 
014 


013157 
014471 


014702 PC,TEST REGISTER ADDRESS CORRECT, ACTUAL. 
014733 


013206 


PC, TEST REGISTER ADDRESS. 
014730 


013243 
014471 
014702 PC, TEST REGISTER ADDRESS CORRECT, ACTUAL. 
014733 


013301 
014471 


014702 PC, TEST REGISTER ADDRESS CORRECT, ACTUAL. 
0147335 


1 
1 
1, 
1, 
1, 
7, 
1, 
1, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
’ 
1 
1 
1 
1 
1 
1 
1 
9 
, 
1 
1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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an 
NN 
PD 


013322 


014733 
; ITEM 53 
013362 
014471 4 
014702 PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
014733 4 
; ITEM 54 
013422 
014603 
014716 PC, TEST NUMBER. 
014740 4 


7 1TEM 55 


PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
014733 


eee ee ee eee ee ee eee emi ie iim ie timing sminianianininininininini 


013511 
014471 
Bene PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


me tg 8 0 0 0 3 I 23 BPO OO OO 


NONOAONO POND NOY @ SS Ss a OS COoOCOCO 


inh 


7: ITEM 60 


013540 
014471 
oes PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


ITEM 61 


SSBVKARANASY 


013627 


PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
014733 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
1i 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


BRRRHRRBWG 
MFwry— 


: ITEM 62 





- 
™~ 
» 
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PC,TEST NUMBER, REGISTE ADDRESS CORRECT, ACTUAL. 
014733 


7 ITEM 63 
013754 


dee" PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


OWNAUSWN—O 


7 1TEM 64 


014032 
014471 
dpga's PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


—_— mn me ee ee Ae A ee AAR PRR PRO ORO ee OE 


; ITEM 65 


oa 
N 


014066 
014471 
Appa 3 PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


ce ee ey ee a i ed td at ot ot» Ls 


; ITEM 66 
014150 
014471 = 
014702 : PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
014733 
7 ITEM 67 
014222 


PC, TEST NUMBER, 
. 014740 


ot ot ng 2 3 3 FF POO OO OO 
ee ee ee ee Oe ee ee ee ee ee ee i 


: ITEM 70 
014307 
014603 
014716 PC, TEST NUMBER. 
014740 


71TEM 71 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 


SRLKAKLSLSSELKAKATSSISVAGRANISSE 


eek ek ek ek ed ed ae od od 2 at = os 


PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
014733 
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FRRAAARAAAAAAAAARARREER REAR AAAAEAAAAAARARAEAAAEAARERARAREREEARARAKREERENEE 


“ERROR AND MESSAGE TABLE CONDIMENTS 


* 
[ERA AAAEA AREER ERARRERERRAAA RARER ARERR EAE RERARARRERRERRERRRERERR EERE 


BBBSBB 


Sees 


Pehle 020107 : : /WRONG DATA IN READING OR WRITING HARDWARE REGISTER/ 


052123 
051117 : ° ZERROR ON DATA COMMAND/ 
042040 


ed ath ead ach ad od ad ed ee ed 
WODWNAULWN =O 


ee ed ce ce ce ce ce ed ed et ed ed ed ed ed od eed ed ed 


MOMEMNMoNaNoNofonofnonedY 


ia) 


7ZERROR ON WRITE HEADER AND DATA/ 


/CONTROLLER OR DRIVE STATUS/ 


052123 ae /REGISTER FAILED/ 
044501 


054105 Pee /NON EXISTENT REGISTER, PROGRAM ABORTED./ 


046501 
052122 
/WAIT LOOP FAILED/ 


/WRITE CHECK FAILING/ 


/REGISTER FAILING/ 


/INTERRUPT FAILING/ 
050125 020124 
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000107 
0 


EM22: .ASCII /ERROR ON DRIVE PRESENT/<15><12> 


-ASCII /THE UNIT NO'S FOUND BY SETTING RHAS/<15><12> 


/DO NOT AGREE WITH THE UNIT NO. FOUND FROM/<15><12> 


026462 . /RHCS2="NED' BIT #12/<15><12> 
020047 

030443 

spar sf ° /177777-MEANS NO UNIT FOUND/<15><12> 


/NOTE: ON DUAL PORT SYSTEM, DRIVE ON OTHER PORT WILL NOT GIVE/<15><12> 


7"NED', HENCE THERE WILL BE AN EXTRA DRIVE/ 


2 
042526 
ae : .ASCIZ /LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR/ 


SSSSSRaSSS sss 


WWW 
=-o 


— — 


047524 020122 
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051511 020116 
00012 


~ 
Ww 
_ 
Nm 


EM25:  .ASCIZ /LOOK AHEAD REGISTER IS IN ERROR/ 


WWANWNAWA 
ee aed od 
DOONAUEW 


/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGIHSTER/<15><12> 


KKK 


WWW 


ed ced ed cad cad ad cel et td ccd ee ca ae ee al ee 
RRR 


CONAUESWI 


Bee 


-ASCIZ /AFTER A SEEK AND INIT/ 


WNW 
WWW 
WN 


¥ 


-ASCII /ECC GENERATED IS INCORRECT/<15><12> 


yvvvw 
BIRT 


7EVERY WORD ON THIS SECTOR IS THAT GIVEN IN ‘DATA USED*’/ 


EEFEEELEK YS 
WONAULSWN—OO 


He $ : . /ON READ COMMAND, AFTER DATA AND ECC HAVE BEEN READ,/<15><12> 


WIWWWAIWAAANWNAN 
MOMMA ana 
WMO 


ONAW 


7ECC REGISTERS OR RHER1 ARE IN ERROR/<15><12> 


046116 020131 . /ONLY LOWER 11 BITS OF PATTERN REG. CAN BE READ/<15><12> 
042527 020122 
041040 052111 


. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
] 
1 


SEFESSES 


e 
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020123 


/THIS SHOULD MATCH LOWER 11 BITS OF GOOD ECC1/ 


/HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS/ 


SESSeeRs 


& 
0 


EM34:  .ASCIZ /ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG. HAS 21 ZEROS/ 


Wi 
38 


1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWW 
KARAS 


EM35: -ASCII /POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRFCT/<15><12> 


/LOWER 11 BITS OF PATTERN REGISTER SHOULD MATCH LOWER/<15><12> 


/11 BITS OF GOOD ECC1/<15><i2> 


041503 
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-ASCIZ /DAT ENVLOP GOOD POSITION AND N=-CODE ZEROS ARE IN OCTAL/ 


oO 


RARKRARK 


-ASCII /ON READ COMMAND WITH NON-CORRECTABLE ERROR DCK AND ECH SHOULD BE SET/<1 


6125 
051440 
051517 . /1F POSITION REGISTER =10040 OR 10041 IT IS GOOD/ 


/WRITING WITH BUS ADDRESS HIGHER THAN 28K CAUSED ERROR/ 


/THERE WAS A READ-WRITE HEADER & DATA ERROR DURING ‘DTE'/<15><12> 


/TEST SETUP - THE TEST WAS ABORTED AT THAT POINT/ 


020124 052101 
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1480 005114 050040 044517 052116 
1481 005122 000 


q 
4 
q 
q 
q 
q 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
q 
5 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
( 
{ 
{ 
{ 
{ 
{ 
( 
1 
‘ 
‘ 
‘ 
( 
‘ 
‘ 
( 
4 





CZRJHCO,RPO4/5/6 DSKLS CTRLR2 


CZRJHC.P11 


aggay 


NOR a 3 SS oS So 
NM —SCOONAUEWN Oo 


MAMMA VII 
aA 


MVM 
Mrn 
Quis 


1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


26-JUL- 


78 10:05 


052101 


020103 
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pee19) CPHALT: .ASCII /FATAL ERROR = SEE DOCUMENT FOR BEST COURSE OF ACTION/<15><12> 


A Li ASCII / £4<15><12><207><377><377><207><377><377><207><377><377> 
1776 


-ASCII /THE PROGRAM HAS HALTED DURING A TEST BECAUSE CONTROLLER/<15><12> 


/OR DEVICE HAS LOST ‘READY’, BECOME UNAVAILABLE ,/<15><12> 


/GONE OFFLINE, OR CANNOT CLEAR STATUS BITS/ 


REG. GOOD A€TUAL /<15><12> 


DATA DATA/ 


020040 Dke2: -ASCII GOOD BAD/<15><12> 


RAR RRR RA AAA AIA ARIA AAAI ARIPO RIPARIAN PURI MIP NONI NINN NNN NNN 
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CZRJHC.P11 26-JUL-78 10:05 ERROR POINTER TABLE 


1538 020040 051505 
14 005602 020124 


FSFE 


WARES 


DH11: ASCII FAILING CONT. . - CONT./<15><12> 


YMMV 
SS BEVEL 
—SV0ONAUSWY-OOON 


REG ADR RHCS1 RHDS1 RHER1/ 


ISERSS RAR 


DH14: ASCII FAILING CONT. . - CONT. CONT. /<15><12 


MEWN@2OO 


1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
| 
i 
1 
1 
1 


MMMM a 
a Pe PP i | 


REG ADR BAD REG RHCS1 RHCS2 RHDS1 RHERI / 


02006 

051105 

020040 DH15: .ASCIZ REG ADR/ 
051505 
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CZRJHC P11 26-JUL-78 10:05 


SSBREESE ILE 


1 
1 
1 
1 
1 
1 
1 
: 
; 
1 
1 
1 
1 


38 


WONAUFSWN—O 


RROR POINTER TABLE 


020124 020040 
043505 040440 
000 


020103 020040 DH16: «ASCII /PC 
052040 
20040 


ASCII 


027124 
020040 
020040 


-ASCII 


020063 
051501 


RHER2 


SEQ 0035 


REG REG/<15><12> 


ADDRESS CONTENTS/ 


CONT. /<15><12> 


RHWC RHCS1 RHCS2/ 


CONT/<15><12> 


RHER3  RHAS RHDS1/ 
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1650 006766 044122 051504 


000061 
1651 006774 041520 020040 020040 DH21: .ASCII /PC TEST CONT CONT CONT/<15><12> 
1652 007002 020040 gachen 052123 


704 
1658 007042 020040 020040 S3sor ASCIZ / NO RHCS1 =RHAS RHDS1/ 


2 
2 
é 
3 
2 
2 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
e 
2 
2 
2 
2 


007106 00006 
roe 007110 041520 020040 020040 DH22: .ASCII /PC TEST RHAS RHCS2/<15><12> 


1671 007147 040 020040 020040 ASCIZ / NO UNIT UNIT/ 


1676 007204 041520 020040 020040 DH24: .ASCII /PC TEST RHDST BAD GOOD SECTOR SECTOR/<15><12> 


682 020040 0040 
1683 007256 0521 oy 051117 


1686 res 020040 020040 020040 -ASCIZ / NO CONT. RHLA RHLA NO CLOCK/ 


3 
1695 007362 041520 020040 pevuey DH26: .ASCII /PC TEST PC OF FAILING CONT. CONT. CONT. CONT./<15><12> 


007434 020056 020040 
1703 007442 047503 052116 020056 
1704 007450 Saag or 052116 
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ASCIZ / NO JSR REG ADD RHCS1 RHCS2 RHDS1 RHERI / 


33 


-ASCII FAILING GOOD ACTUAL /<15><12> 


YITISAAIISS 
> i > Ph Pe Ph > > P 


NNN 
Nm 
= 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


N 


-ASCII ° BAD/<15><12> 


ASCII CONT. /<15><12> 


020056 
? : 052116 
010147 040 020040 ‘ RHCS1 = RHDS1 


NMMVAVVVNVUVVVVNVANNNNVANNVNNNNANANNNNNNNYRANNNANNNAANYN 
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010154 02004 020117 
010162 


DH32: .ASCII 


WII 
BRBNVOAARG 


ed ced ced ced ced cee cd cd ced ce ce ed 
NNN NNN 
Jaasagsas 

RBBB OB BOF BBB 


DH33: .ASCII CONT. /<15><12 


See SGr ance eeLearuess 


042510 


: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0 0d Co Co Co C0 Co Co 
aah aah aad aah aa oad enh ed 
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DH34: .ASCII /PC TEST GOOD WRITTEN WRITTEN DATA/<15><12> 


ECC! ECC2 USED/ 


DH35: .ASCII PATTERN POSITON GOOD RHER1 /<15><12 


REG. REG. POSITON REG./ 


— SS a SS I 
RRSHSASNEK 


DH36: «ASCII POSITON PATTERN/<15><12> 


PRENVRRTS 


— 
NMonmonononong 
SNVSRS 


REG. 


WWW WG 
FeResS 


wu 
Aon 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
011 
01 
01 
01 
011 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


WW 
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043505 
041520 020040 DH37: «ASCII /PC TEST POSITON POSITON GOOD PATTERN DATA N- CODE / 


ASCIZ / ECC ENVLOPE ZEROS 


/PC FAILING CONT. . CONT ./<15><12> 


SERER ERE RS REELS tot toh te 


33 


3883 


REG ADR RHCS1 RHCS2 RHDS1 RHER1/ 


woovow0ovnon0on9 
ai ab ath ob ab ob od od ee 


020061 
051105 


1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SOONAUSWN oO 


ee 


01 ite okt hel DT1: ° SERRPC , TSTNM,REGADR,$GDDAT , $BDDAT ,0 
052774 DT2: ° SERRPC , TSTNM,ERWORD , $GDDAT ,0 


052774 DT3: ° SERRPC , TSTNM, ERWORD , SGDDAT , SBDDAT ,0 
000000 


017330 001122 DT11: . SERRPC,TSTNM, SBDADR,CS1,CS2,DS1,ER1,0 
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015030 015054 


017330 001122 DT14: .WORD SERRPC,TSTNM,$BDADR,$BDDAT,CS1,CS2,DS1,ER1,0 
015032 015030 

015034 000000 

017330 001200 DT15: . SERRPC ,TSTNM,STMP1 0 


017330 001204 DT16: . SERRPC ,TSTNM, $TMP3,$TMP1,$TMPO, SBDDAT ,0 
001176 001126 


017330 015026 DT17: SERRPC , TSTNM,BA,DB,WC,CS1,CS2,0 
015024 015032 
000000 


017330 015034 DT20: . SERRPC , TSTNM,ER1,ER2,ER3,AS,DS1,0 
015050 


015032 DT21: SERRPC ,TSTNM,CS1,AS,DS1,0 
001124 DT22: SERRPC , TSTNM, S$GDDAT , SBDDAT ,0 


O1038 DT24: SERRPC, TSTNM,DST,$BDDAT ,$TMP1 ,$TMP2,$TMP3,0 


015132 DT26: SERRPC , TSTNM,PCJSR,$BDADR,CS1,CS2,DS1,ER1,0 
015030 
000000 


Bisise OT27: . SERRPC, TSTNM,PCJSR,REGADR, $GDDAT , $BDDAT ,0 


017330 015132 DT30:_ . SERRPC, TSTNM,PCJSR,REGADR,$GDDAT , $BDDAT ,0 

001124 001126 

017330 ete OTS1: . SERRPC , TSTNM, ERWORD , SGDDAT , $BDDAT ,CS1,DS1,ER1,0 
000000 

Bilas OTH: . SERRPC ,TSTNM,PCJSR,ERWORD , SGDDAT , $BDDAT.CS1,DS1,ER1,0 

001124 001126 

015054 015034 


017330 015132 DT33: . SERRPC , TSTNM,PCJSR,ERWORD ,SGDDAT,CS1,DS1,ER1,0 
001124 Abate 


p2eeSs DT34:  . SERRPC,TSTNM,GECC1,GECC2,WECC1,WECC2,DISK,0 


OTS: .. « SERRPC, TSTNM,GECC1,GECC2,EC2,EC1,POSITI,ER1,0 


DT36: . SERRPC ,TSTNM,PCJSR,MR,EC1,EC2,0 


ere oTs?: . SERRPC,TSTNM,EC1,POSITI,GECC1,GECC2,EC2,DATENV,ZCODE ,0 
050502 050504 
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012474 000000 
012476 001116 017330 001122 DT40: .WORD SERRPC,TSTNM,SBDADR,CS1,CS2,DS1,ER1,0 


012504 015032 015030 015054 
012512 015034 000900 


012516 0,0,0.0.0 


0,0.1,0 
0,0,1,0,0 


0,0,0,0,0,0,0 


0,0,0.0,0,0,0,0 


0,0,0.0,0,0,0 


ee ee ee ee ee ee ee ee ee ee ee Se ee 


0.0.0.,0,0 
0,0,0,0 
0,0,0,0,0,0,0 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
C00 
000 
000 
000 
000 
000 
000 
000 
000 
000 


0,0,0,0.0,0,0,0 


8 


0.0,0,0,0,0 
0.0,0,0,0,0 


S888 


=) 
S 


0,0,1,0,0,0,0,0 


0,0,0,1.0,0,0,0,0 


SSS8888 8 


0,0,0,1,0,0,0.0 


ss 


012676 


S 


0,0.0,0,0.0.0 
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AE 444, 
DF35: .BYTE 0,0,0,0,0,0.0,0 


DF36:  .BYTE 0,0.0.0.,0,0 
DF37: .BYTE 0,0,0,0,0,0,0.0,0 


DF4O0: .BYTE 0,0,0,0,0,0,0 
012742 


«EVEN 
012744 : -ASCIZ /RH11 REGISTER FAILED TO RESPOND TO A ‘'TST** COMMAND/ 


013024 
013027 122 020061 : % /RH11 ILLEGAL REGISTER RESPONSE TEST/ 
013034 2514 


052123 


053117 020105 i 530 /MOVE BYTE TO WORD COUNT TEST/ 
042524 
047527 
052517 
013122 051505 


013130 020123 a /BIS BYTE TO WORD COUNT/ 
013136 052040 
013144 042122 
013152 052116 


ab 102 ts /BIC BYTE TO WORD COUNT/ 


2 
2 
2 
2 
2 
< 
P 
é 
< 
é 
é 
‘¢ 
< 
P 
4 
é 
é 
< 
< 
é 
4 
é 
é 
{ 
< 
{ 
é 
{ 
< 
{ 
{ 
{ 
{ 
| 
{ 
{ 
{ 
{ 
4 


000124 
052123 her /REGISTER ADDRESS SELECT TEST/ 


1505 
042524 052123 
013243 116 047117 042440 wae /NON EXISTANT DRIVE (NED) TEST/ 
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2098 013250 044530 052123 047101 
2099 013256 020124 051104 053111 


2100 013264 020105 047050 042105 
2101 013272 020051 042524 052123 
$io8 013300 000 


2104 013301 101 020123 042522 EMS51: .ASCIZ /AS REGISTER TEST/ 
2105 013306 044507 052123 051105 
2106 013314 052040 051505 000124 


2107 

2108 013322 052502 051523 040440 EMS2: .ASCIZ /BUSS ADDRESS REGISTER DATA TEST/ 
2109 013330 042104 042522 051523 

2110 013336 051040 0435 051511 

2111 344 042524 020122 040504 

2112 073352 040524 052040 051505 

Siz 000124 

2115 013362 052502 051523 040440 EM53: .ASCIZ /BUSS ADDRESS REGISTER MOVE BYTE/ 
2116 013370 042104 042522 051523 

2117 013376 051040 043505 051511 

2118 013404 042524 020122 047515 


2119 013412 042526 041040 052131 


2122 013422 044122 030461 044440 EM54: .ASCIZ /RH11 INTERRUPT FAILED TO OCCUR/ 
2123 013430 052116 051105 052522 
2124 013436 052120 043040 044501 
2125 013444 042514 020104 047524 
2126 013452 wea 041503 051125 


28 
2129 013461 122 051505 052105 EM55: .ASCIZ /RESET TEST/ 
2130 013466 052040 051505 000124 


2132 013474 054115 020106 044502 EM56: .ASCIZ /MXF BIT TEST/ 
2133 013502 020124 042524 0521235 
2134 013510 000 


2136 013511 125 044516 052502 EM57:  .ASCIZ /UNIBUS PARITY BIT TEST/ 
2137 013516 020123 040520 044522 
2138 013524 054524 041040 052111 
2139 013532 052040 051505 000124 


2141 013540 047504 Se bers EM60: .ASCIZ /DOES SELECTING THE RH11 CLEAR THE UNIT SELECT REGISTER/ 


2 
2 
2 
P 
2 
< 
< 
P 
é 
é 
é 
é 
< 
4 
< 
< 
{ 
< 
| 
‘ 
( 
q 
‘ 
| 
{ 
{ 
{ 
{ 
q 
{ 
{ 
{ 
| 
{ 
{ 
{ 
d 
4 
‘ 
4 


1505 
2149 013620 sat + 052123 051105 


2152 013627 104 042517 020123 EM61: .ASCIZ /DOES TRE GET SET BY UNIBUS PARITY ERROR/ 
2153 013634 051124 020105 042507 





CZRJHCO,RPO4/5/6 DSKLS CTRLR2 
26-JUL-78 10:05 


CZRJHC.P11 


013750 
013754 
0137 


0140 
014026 
014032 


014146 
014150 


014214 
014222 


014274 


020124 
054502 
052502 


044522 
051122 


047524 


MACY11 7 


020124 


052050 


054105 


052050 


051440 
020124 
042105 
046103 


2514 
047440 


G 4 
A(1052) 27=JUL-78 11:16 PAGE 46 
RROR POINTER TABLE 


/NON EXISTANT DRIVE (NED) FAILED TO SET (TRE)/ 


/NON EXISTANT MEMORY (NEM) FAILED TO SET (TRE)/ 


/PORT SELECT FAILED TO CLEAR/ 


/CONTROLLER CLEAR FAILED TO CLEAR COMMAND REGISTER/ 


/RESELECT FAILED TO CLEAR COMMAND REGISTER/ 


/INTERRUPT CAUSED BY RDY!IE BITS SET FAILED TO OCCUR/ 


PoP Na Mo AAA AAAI AIPOPOAIPIPIAIPIAIAIPIAIPINIPINPIPO PIP POPUP NI RI NI RNIN NNN NNVNNNNNNYNNYNDY 
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014302 051125 
EM70: .ASCIZ /IE FAILED TO CLEAR FOLLOWING AN INTERRUPT/ 


052522 052120 


020123 042522 :  .ASCIZ /AS REGISTER WRITE TEST/ 
051105 
042524 
014402 000124 


014410 020040 020040 : ASCII ILLEGAL/<15><12> 
052123 
046111 
006514 
020040 ' ADDRESS/ 
020117 
040440 
051523 
ASCII REGISTR CONT CONT/<15><12> 


ADDRESS GOOD BAD/ 


-ASCII REGISTR CONT/<15><12> 


2 
2 
2: 
rd 
ra 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


ASCIZ / ADDRESS/ 


020040 
042522 051523 
014670 


014672 





I 4 
CZRJHCO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 27=JUL-78 11:16 PAGE 48 
CZRJHC P11 26-JUL=78 10:05 ERROR POINTER TABLE 


dpe 163 017330 045534 DT42: .WORD S$ERRPC,TSTNM,REGADR,O 
abe 045534 D144: .WORD SERRPC,TSTNM,REGADR,$GDDAT ,$8DDAT ,0 


001126 000000 
017330 045534 D154: .WORD $ERRPC,TSTNM,REGADR,$GDDAT ,0 
014724 000000 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
P| 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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000 DF42: .BYTE 0,0.0 
000 DF44: .BYTE 0,0,0,0,0 


000 DF54: .BYTE 0,0,0,0 
014743 
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.-SBTTL HARDWARE REGISTER BIT DEFINITIONS 
;RH11 REGISTERS 


;WORD COUNT REGISTER (RHWC) 
;EACH BIT IS CALLED BY BIT NUMBER 


;BUS ADDRESS REGISTER (RHBA) 
;EACH BIT IS CALLED BY BIT NUMBER 


CONTROL AND STATUS REGISTER 2 (RHCS2) 


;UNIT SELECT (BIT #0) 

UNIT SELECT (BIT #1) 

;UNIT SELECT (BIT #2) 

3BUS ADDRESS INCREMENT INHIBIT (BIT #3) 

; INVERT Ants A MASS BUS TO EVEN (BIT #4) 


“MISSED TRANSFER ERROR (BIT #9) 

;PROGRAM ERROR (BIT #10) 

NON EXISTANT MEMORY (BIT #11) 

NON EXISTANT DRIVE (BIT #12) 

;UNIBUS PARITY ERROR (BIT #13) 
40000 [WRITE CHECK ERROR (BIT #14) 
100000 ;DATA LATE (BIT #15) 


DATA BUFFER REGISTER (RHDB) 
EACH BIT IS CALLED BY BIT NUMBER 


PVNLNLYYVVLRYNY 
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;RPO4 REGISTERS 


CONTROL AND STATUS 1 REGISTER. (#00) 


GO (BIT #0) 

; INTERRUPT ENABLE (BIT #6) 
SREADY (BIT #7) 

[HIGH ORDER UNIBUS BITS (BIT #8) 
HIGH ORDER UNIBUS BITS (BIT #9) 
SPORT SELECT (BIT #10) 

;DEVICE AVAILABLE (BIT #11) 
SMASSBUSS PARITY ERROR (BIT #13) 
; TRANSFER ERROR (BIT #14) 
7SPECIAL CONDITION (BIT #15) 


DRIVE FORWARD 5°'/SEC. (BIT #0) 
DRIVE FORWARD 20°'/SEC. (BIT #1) 
DRIVE TO INNER GAVRD BAND (BIT #2) 
GO REVERSE (BIT #3) 

;DIFFERENCE LESS THAN 64 - #4) 
;D1FF ERENCE EQUALS 1 (BIT 


“DRIVE PRESENT (BIT #8) 
ROGRAMABLE (BIT #9) 


:P B 
;LAST SECTOR ee ge A mae (BIT #10) 


DIUM ON- 12) 
“POSITIONING OPERATION IN PROGRESS (BIT #13) 
;COMPOSIT ERROR. (BIT #14) 
SATTENTION ACTIVE (BIT #15) 


ERROR REGISTER #01 (RHER1) (402) 

ILF= 1 ILLEGAL FUNCTION (BIT #0) 

ILLEGAL REGISTER (BIT #1) 

SREGISTER MODIFICATION REFUSED (BIT #2) 

sPARITY ERROR (BIT #3) 
;FORMAT ERROR (BIT #4) 

[WRITE CLOCK FAIL (BIT #5) 

ECC HARD ERROR (BIT #6) 

SHEADER COMPARE ERROR (BIT #7) 

SHEADER CRC ERROR (BIT #8) 

SADDRESS OVERFLOW ERROR (BIT #9) 

; INVALID ADDRESS ERROR oe #10) 

[WRITE LOCK ERROR (BIT #11) 

DRIVE TIMING ERROR (BIT #12) 
OPERATION INCOMPLETE (BIT #13) 

:DRIVE UNSAFE (BIT #14) 

;DATA CHECK ERROR (BIT 15) 


ZMAINTAINABILITY REGISTER (RHMR) (#03) 


YVYYVRVYVWRNYWWWMWRRRRRRWRRRRRRRRRRRRRRVRRRRRBRRBRVVBBVVBVVBBBBB 
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;DIAGINOSTIC MODE (BIT #0) 
;MAINTAINABILITY CLOCK (BIT #1) 
SMAINTAINABILITY INDEX (BIT #2) 
;MAINTAINABILITY SECTOR CLOCK (BIT #3) 
SMAINTAINABILITY READ (BIT #4) 
SMAINTAINABILITY WRITE (BIT #5) 

;DATA ENVELOPE (BIT #7) 

ZERO DETECT (BIT #8) 

SMAINTAINABILITY SYNC DETECTED (BIT #9) 


ZATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 


ATO= ;DEVICE 0 (BIT #0) 
AT1= 1 (BIT #1) 
AT2= 2 
AT3= ;DE 3 
AT4= : 4 
ATS= 5 
AT6= s 6 
AT7= SDEVICE 7 


DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 
EACH BIT IS CALLED BY BIT NUMBER 


DRIVE TYPE REGISTER (RHDT) (406) 
;EACH BIT IS CALLED BY BIT NUMBER 


;LOOK-AHEAD REGISTER (RHLA) (#07) 
EXTENSION 1 (BIT #0) 


) 
(BIT #6) 
IE (BIT #7) 
SECTOR COUNT FIELD 2 (BIT #8) 
(BIT #9) 
(BIT #10) 


LAA al A LA al A La SA A GA A La ALA LA LA A MIMSY YYSSSSSVSSVVVVBBVVBBVB33BB 
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TRK20= 100000 
ERROR REGISTER #2 (RHER2) (#10) 


100000 
REGISTER (RHOF) (#11) 


;DESIRED CYLINDER ADDRESS (RHCA) 


EACH BIT IS CALLED BY BIT NUMBER 


CURRENT CYLINDER ADDRESS (RHCC) 
NUMBER 


EACH BIT IS CALLED BY BIT 


;TRACK FIELD 5 (BIT #15) 


WRITE CURRENT UNSAFE (BIT #0) 
CURRENT SINK FAILURE (BIT #1) 

[WRITE SELECT UNSAFE (BIT #2) 
CURRENT SWITCH UNSAFE (BIT #3) 
;MOTOR SEQUENCE ERROR (BIT #4) 

: TRANSITIONS ceorsres FAILURE (BIT #5) 
; TRANSITI: (BIT #6) 


SMULTIPLE HEAD SELECT (BIT #9) 


3NO HEAD SELECTION (BIT #10) 
IT #11) 


SACUNSAFE (BIT #15) 


;OFFSET 25 MICRO INCHES (BIT #0) 
;OFFSET 50 MICRO INCHES (BIT #1) 
SOFFSET 100 MICRO INCHES (BIT #2) 
;OFFSET 200 MICRO INCHES (BIT #3) 
TOFFSET 400 MICRO INCHES (BIT #4) 
[OFFSET 800 MICRO INCHES (BIT #5) 


sOFFSET NEGATIVE (REVERSE) (BIT #7) 
THEADER COMPARE INHIBIT (BIT 


#10) 
ERROR CORRECTION CODE INHIBIT (BIT #11) 
;FORMAT BIT (BIT #12 


(#12) 


(#13) 


;SERIAL NUMBER REGISTER (RHSN) (414) 
NUMBER 


;EACH IS CALLED BY BIT 


SAAN al A al A A ON a GA SAN AO AS ES SSSSSS 
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;FRROR REGISTER #03 (RHER3) (#15) 


;PACK SPEED UNSAFE (BIT #0) 

VELOCITY UNSAFE (BIT #1) 

TANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
DISK PACK ROTATION ERROR (BIT #4) 

ZAC LOW (BIT #5) 

DC LOW (BIT #6) 

;SEEK INCOMPLETE (BIT #14) 

;OFF CYLINDER (BIT #15) 


ECC POSITION REGISTER (RHEC1) (416) 
EACH BIT IS CALLED BY BIT NUMBER 


ECC PATTERN REGISTER (RHEC2) (#17) 
;EACH BIT IS CALLED BY BIT NUMBER 
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-SBTTL REGISTER ADDRESSES 


;RP04/5/6 VECTOR ADDRESS 
014744 RPVEC: 254 3RP04/5/6 VECTOR ADDRESS 


THE Rg) it OF THESE LOCATIONS WILL BE gag 
IF THE ‘‘CHANGE BASE ADDRESS*’ ROUTINE IS USED. 
THIS MROUT INE STARTS AT LOCATION TAGGED + BASECH"® 


014746 176722 : 176722 DATA BUFFER 
: ;WORD COUNT 
BUS ADDRESS 
;CONTROL AND STATUS 
; CONTROL AND “ont aan 1 SEE NOTE ABOVE 
SERROR #1 SEE NOTE ABOVE 
: DESIRED SECTOR / TRACK ADDRESS 
ayo #2 


; OFFSET 
:DESIRED CYLINDER ADDRESS 
RROR #3 


SATTENTION SUMMARY SEE NOTE ABOVE 
;MAINTAINABILITY 

DRIVE STATUS 

zDRIVE TYPE 

; SERIAL NUMBER SEE NOTE ABOVE 
SECC POSITION 

ECC PATTERN 


: ;LOOK AHEAD 
015014 176736 : 176736 ‘CURRENT CYLINDER ADDRESS 
;ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER 


015016 176752 RHCS3: 176752 CONTROL AND STATUS REG #3 
015020 176750 RHBAE: 176750 ;BUS ADDRESS EXTENSION REGISTER 
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2550 

2551 7 THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES 
2552 SANY TIME THERE 1S AN ERROR ALL THESE WILL BE FILLED 
2553 sONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
$2ee FOR THE TIME JUST AFTER THE ‘ERROR’’ ERROR COMMAND 

2556 015022 000000 DB: 0 :DATA BUFFER 

2557 015024 000000 WC: 0 ;WORD COUNT 

2558 015026 000000 0 BUS ADDRESS 

$228 015030 000000 CS2 0 CONTROL AND STATUS 2 
2561 

2562 015032 000000 CS1 0 CONTROL AND STATUS 1 
2563 015034 000000 ER1 0 ;ERROR #1 

2564 015036 000000 DST 0 ;DESIRED SECTOR/TRACK ADDRESS 
2565 015040 000000 ER2 0 ; ry My #2 

25 015042 000000 OF 0 s OFFSET 

2567 015044 000000 CA 0 : DESIRED CYLINDER ADDRESS 
2568 015046 000000 ER3 0 RROR #3 

2569 015050 000000 AS 0 SATTENTION SUMMARY 

2570 015052 000000 0 :MAINTAINABILITY 

2571 015054 000000 DS1 0 [DRIVE STATUS 

2572 015056 DT 0 :DRIVE TYPE 

2573 015060 000000 SN 0 ; SERIAL NUMBER 

2574 015062 EC1 0 SECC POSITION 

2575 015064 EC2 0 sECC ted my 

2576 015066 000000 LA: 0 ; LOOK~AHEAD 

$30 015070 000000 CC: 0 CURRENT CYLINDER ADDRESS 
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FLAGS AND INTERNAL PROGRAM CONTROL WORDS 


015072 aaa -BLKW ° THIS IS FILLED Hh -1 
015112 UNIT - WORD [UNIT UNDER TEST 
015114 NOUNIT: WORD ;NUMBER OF UNITS PRESENT 

;USED TO KEEP TRACK OF UNIT UNDER TEST 
015116 NUNIT: . WORD :USED TO DETERMIN IF THERE ARE MORE 


HAN UNIT 
015120 SELECT: .WORD TALL ONES INDICATE UNIT TO BE SELECTED 
015122 UNITSL: .WORD [UNIT NO. SELECTED 


015124 ERFLG$: 0 ERROR FLAG 


015126 SAVDT: + SAVE DRIVE TYPE REGISTER 
OMPARISON IN DRIVE CLEAR TEST 
AND RH INIT TEST 
015130 SAVSN: SAVE SERIAL NUMBER REGISTER 
FOR COMPARISON IN DRIVE CLEAR TEST 
SAND RH INIT TEST 


015132 PCJSR: SAVE PC OF JSR WHICH GAVE THE ERROR 


015134 ATTENT: ATTENTION BIT FOR PRESENT UNIT 
015136 000000 TOTALAT: ; TOTAL ATTENTION BITS 


015140 TMPILL: ; TEMPORARY ILLEGAL FUNCTION 


015142 000000 TSECC: ; TO_SAY_IF ECC TEST OR NOT 
; =177777 IT IS AN ECC TEST 
=OIT IS NOT AN ECC TEST 


015144 000000 TESDTE: LAG TO SAY _IF DRIVE TIMING ERROR OR NOT 
‘UHEN = 177777 IT IS A DTE TEST 
[WHEN = 0 IT IS NOT A DTE TEST 


4 off ods ots off oft lt od 


#4 88 afd wht ods 28 


015146 000000 TAGDTE : ; TEMPORARY TAG USED IN DRIVE TIMING 
SERROR TEST 
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FUNCTION EQUATES 


; TABLE OF COMMAND FUNCTIONS FOR RHCS1 
THEN "'GO'’ BIT HAS TO BE SET 


015150 
NO OPERATION 


VE CLEAR 
“RELEASE (DUAL=PORT OPERATION) 
; SEARCH COMMAND 


E 
[WRITE CHECK DATA 
[WRITE CHECK HEADER AND DATA 
WRITE DATA 
ean AND DATA (FORMAT) 


READ 
[READ HEADER AND DATA 
SEEK COMMAND 

OFFSET COMMAND 
;RETURNTO CENTERLINE 
PACK ACKNOWLEDGE 


: sREAD IN 
015212 000000 SLLEGLs . ;COMPUTED ILLEGAL FUNCTION 


;DATA BUFFER FOR READ WRITE 


015220 WRFROM: .BLKW 274, ;WRITE FROM THIS BUFFER 
016264 REINTO: .BLKW 274. ;READ INTO THIS BUFFER 


017330 000000 TSTNM: 0 ; TEST NUMBER 
017332 FIRST: OQ 71F ZERO WILL TYPE HEADER 
;1F ONES WILL NOT TYPE HEADER 


017334 RH70: 0 FLAG = 1 FOR wot CONTROLLER 
FLAG = 0 FOR RH1 


; TABLE FOR ATTENTION BITS 
ATTENTION TABLE 


002 004 ATABLE: .BYTE 1,2,4,10,20,40,100,200 
a 


SEQ 0057 
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o 
™N 
» 


. SBTTL 
aaa ***PROGRAM SETUP & SETUP TESTS*** 


012737 177777 015120 BEGIN2: MOV #=1 ,AASELECT SELECT UNIT 
000402 START 
015120 BEGIN: @ASELECT D0 NOT SELECT UNIT 
NORMAL RUN 


START: 


#SCMTAG ,R6 3zFIRST LOCATION TO BE CLEARED 
(R6)+ 3;CLEAR MEMORY LOCATION 
SUR, R6 :; er 

;LOOP BACK IF 


NO 
WSTACK, SP : TSE TUP THE STACK POINTER 
WSSCOPE ,a#IOTVEC :; ive VECTOR FOR SCOPE ROUTINE 
#340,aMiOTVEC+2 ;:LEVEL 7 
ASERROR , A#EMTVEC :EmT VECTOR FOR ERROR ROUTINE 
bon lt @WEMTVEC+2 ;:LEVEL 7 
#STRAP ,aMTRAPVEC ::T TRAP VECTOR FOR TRAP CALLS 
#340, @WTRAPVEC+2;LEVEL 7 
#SPWRDN, @#PWRVEC ; ;POWER_FAILURE VECTOR 
#340, a#PWRVEC+2 aa L 7 
NITIALIZE NUMBER OF ITERATIONS 
[CLEAR THE ESCAPE ON ERROR ADDRESS 
TALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
: ESETUP THE a ADDRESS 


ECTOR 
ADSWR , SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP,DISPLAY ;:AND A HARDWARE DISPLAY REGISTER 
177777 #~-1,aSWR SITRY TO REFERENCE HARDWARE SWR 
66$ : ;BRANCH IF = TIMEOUT TRAP OCCURRED 
65$ BRANCH IF NO TIMEOUT 
017564 64$: #65$, (SP) 7:SET UP FOR TRAP RETURN 


000176 001140 65$: ASWREG , SWR 3sPOINT TO SOFTWARE SWR 
000174 001142 #D1SPREG DISPLAY 
012637 000004 66$: (SP)+,aWERRVEC ;;RESTORE ERROR VECTOR 


alt oft att alt oft atl alt alt all alt of lal lal alt al Lal AAA A lA A A a 


012737 000000 177776 STARTA: #0,PS ;SET PROCESSOR STATUS TO 0 
057306 175124 MO #RPVECT ,@RPVEC :TH HIS IS FOR UNTIMELY DRIVE INTERRUPTS 
060352 PC ,a#$TKINT EYBOARD 
017332 ees 


I 2 
0176 DON'T TYPE HEADER IF NOT 
017632 2$ ; TYPE HEADER IF SO 


017634 020662 : @4SND1 


017640 : 
017640 017646 ,65$ zi TYPE ASCIZ STRING 
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2728 017644 000435 BR 64$ r:GET OVER THE ASCIZ 3 
2730 017740 104401 017746 TYPE ,67$ :: TYPE ASCIZ STRING 3 
731 017744 000417 BR 66$ +:GET OVER THE ASCIZ 3 
2733 0200046 104401 020012 TYPE 69% i: TYPE ASCIZ STRING 3 
2734 020010 000433 BR 68$ +:GET OVER THE ASCIZ 3 
2735 020100 104401 020106 TYPE ,71$ +: TYPE ASCIZ STRING 3 
2736 020104 000433 BR 70$ S:GET OVER THE ASCIZ 3 
2737 020174 104401 020202 TYPE 73$ +: TYPE ASCIZ STRING 3 
2738 020200 000436 BR 72$ +:GET OVER THE ASCIZ 3 
2739 020276 104401 020304 TYPE 75$ +: TYPE ASCIZ STRING 3 
2740 020302 000431 BR 76$ *:GET OVER THE ASCIZ 3, 
2741 020366 104401 020374 TYPE 77$ +: TYPE ASCIZ STRING 3 
2742 020372 000427 BR 76$ +:GET OVER THE ASCIZ 3 
2743 020452 104401 020460 TYPE 79$ t:TYPE ASCIZ STRING 3 
2744 020456 000427 BR 78$ ::GET OVER THE ASCIZ 3 
2745 020536 104401 020544 TYPE ,81$ t:TYPE ASCIZ STRING 3 
2746 020542 000415 BR 80$ *:GET OVER THE ASCIZ 3 
2747 020576 104401 020604 TYPE ,83$ >:TYPE ASCIZ STRING 3 
2748 020602 000427 BR 82$ *:GET OVER THE ASCIZ 3 
2750 020662 012737 177777 017332 SND1: MOV #-1,a4F IRST ZNEXT TIME DO NOT GIVE HEADER 3 
2752 020670 005737 000042 TST are2 : ARE WE RUNNING UNDER XXDP/ACT? 3 
2753 020674 001006 BNE 64$ SZBRANCH IF YES 3 
2754 020676 023727 001140 000176 CMP SWR ,ASWREG + ¢ SOF TWARE SWITCH REG SELECTED? 3 
2755 020704 001005 BNE 65$ CH IF NO 
2756 020706 104406 GTSWR S:GET SOFT-SWR SETTINGS 
2757. 020710 000403 BR 65$ 
2758 020712 112737 000001 0011346 64$: MOVB  4#1,$AUTOB ::SET AUTO-MODE INDICATOR 
2760 020720 032777 010000 160212 RH70CK: BIT #SW12,aSWR :LOOK TO SEE IF USING RH70 
2761 020726 001403 BEQ 3$ SIF SWi2 = 0, SKIP NEXT 
2762 020730 012737 000001 017334 MOV #1, @4RH70 ‘IF SWi2 = 1. CU IS AN RH70 
2764 020736 005737 015120 3$: TST @ASELECT 2200 START? 
2765 020742 001434 BEQ TST1 :GO TO FIRST TEST IF STARTING FROM 200 ------ ) 
2766 020744 104401 020752 TYPE ,65$ +: TYPE ASCIZ STRING 
2767 020750 000422 BR 64$ *:GET OVER THE ASCIZ 
2768 021016 104412 RDOCT 
2769 021020 042716 177770 BIC #177770, (SP) sONLY KEEP LAST 3 BITS 
2770 021024 011637 015112 MOV (SP) ,a#UNIT ‘SAVE UNIT TO BE TESTED 
344 021030 012637 015122 MOV (SP)+,@#UNITSL ;SAVE UNIT TO BE TESTED 
2773 
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021370 


012737 
012737 


000427 
012746 
104402 
009000 
000137 
012737 


3 
012737 
012737 
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00000 

061622 
021112 
000024 
014746 


000006 
177776 
020000 
021150 
000204 


044564 
021322 


021272 


021334 
061612 
000006 


MACY11 a es 


001212 
017330 
000030 


000004 


000004 
001200 
160000 


000004 


000030 
000004 


TST1: 


1$: 


2$: 


4$: 
3$: 


TRP: 


RIN: 


ss. 
27-JUL-78 11:16 PAGE 


61 
T VALUE FOR SOFTWARE SWITCH REGISTER 


#1,$TIMES 3;D0 1 ITERATION 
STACK, SP SET UP STACK POINTER 
MTTNO,@ATSTNM = ;THIS SAVES TEST aa 
#REGSA1 , a#EMTVEC: io he VECTOR SO THA 

:NO yey ly: ARE SAVED 
#2$ ,AAMERRVEC 5 UP FOR BUS TIMEOUT 
#24 ,RO THERE ARE 24 REG TO 


TEST 
#RHDB,R1 [R1 NOW HAS ADDR OF ADDR OF FIRST REG. 
a(R1)+,R2 =READ a we REG. 
RO ;COUNT D 
1$ [BRANCH IF TF 24 NOT DONE 
3$ ;BRANCH IF 24 DONE 
MERRVEC+2, @WERRVEC RESTORE TRAP CATCHER 
(SP) +, (SP5+ ;CLEAN STACK 
-2(R15, $TMP1  ;STORE FAILING REG ADDR 
15 REGISTER NON EXISTANT 
#SW13,aSWR ; INHIBIT ERROR PRINTOUT ? 
4$ BRANCH IF YES 
-65$ ii TYPE ASCIZ STRING 


64$ T OVER THE ASCIZ 
HADDMOD,=(SP)  :GET READY TO TYPE STARTING ADDRESS 


:OF ‘CHANGE OF BASE ADDRESS’ ROUTINE 
STOP TO FORCE THE RESTART! 


a4SEOP sG0 TO ERD OF PROGR qomwoeneeeeense= 
ATRP ,@A4 INITIALIZE VECTOR 
RH70 INIT RH INDICATOR ++ C.W 
@RHBAE SADDRESS RPBAE (RH11/RH70?) 
RH70 iF AN RH70 
-67$ 7; TYPE ASCIZ STRING 
66$ 3:GET OVER THE ASCIZ 
RTN SET MASK AND GET OUT 
te TADJUST THE STACK 
. 


-65$ oo ASCIZ STRING 
64$ T OVER THE ASCIZ 
#SERROR ,@MEMTVEC: RESTORE ERROR VECTOR 

;SO THAT REGISTERS ARE SAVED 
HERRVEC+2,@MERRVEC ;RESTORE TRAP CATCHER 





SEO 0060 


3 
by 
by 
3 
3 
3, 
3 
3 
3 
3 
3 
3 
3 
3, 
3, 
3 
3 
3. 
3, 
3, 
3 
3 
3 
3, 
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021376 


021426 
021432 


021452 


021454 
021456 
021464 


021472 


021524 
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WN 
&N 


NN NUNN 


009001 
001900 
000002 
017334 
021454 


014754 
045536 


000001 
000003 


014774 
177777 


001124 
045534 


MACY11 seat eae? 


001212 
017330 


021446 


001212 
017330 


TST2: 


TST3: 


27-JUL-78 


#1,$TIMES 
#STACK, SP 
#TTNO, aa TSTNM 
awRH70 

30$ 

TST3 


@ARHCS2 , @AUNt2 


RS ,a4BI TST 


0 
5 
PC 


#1 ,$TIMES 
#TTNO,@4TSTNM 


i 35 
11:16 PAGE 62 
REFERENCE EACH REGISTER 


;;D0 1 Dg a 

sRESET STA 

THIS SAVES. TEST NUMBER 

TTEST FOR a hg CONTROLLER 
iF FLAG. = SKIP THIS TEST 


;JUMP TO next TEST cocececewencecerece= ) 


TEST BITS _IN REGISTER 

ONLY THESE BITS ARE TEST READ/WRITE 
ADDRESS OF REG. BEING TESTED 

IN CORRECT DATA RECEIVED 

;RETURN TO BLT3 ROUTINE 


;;D0 1 ITERATION 
THIS SAVES TEST NUMBER 


R11 HAS ADDRESS OF RHAS 
‘Test a RHAS (SURPRISED!) 


BRANCH IF GOOD 
:GOOD DATA 

sFAILING REG. RHAS 

[RHAS DOES NOT CLEAR 
[WITH ONES MOVED INTO IT 


SEQ 0061 


3 
3 
3 
BY 
By 
By 
3 
3 
By 
3 
BY 
3. 
By 
3 
x 
5 
x 
3. 
3. 
3 
3 
3 
3. 
3 
3 
3 
3 
3 
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021526 000004 TST4: 

021530 012737 000001 001212 MOV #1, $TIMES 3;D0 1 ITERATION 
021536 000005 START WITH AN INIT 
021540 004737 060352 SR PC ,@#$STKINT ;INITILIZE TTY KEYBOARD 


021544 032777 020000 157366 #SW13,aSWR ; INHIBIT ERROR TYPEOUT ? 
BN 4$ SKIP NEXT IF SO 
021562 7 TYPE ASCIZ STRING 
BR 2 3GET OVER THE ASCIZ 
014774 : R1 HAS ADDR. OF RHAS 
014754 ;R2_ HAS ADDR. OF RHCS2 
aR2 S COUNT RHCS2 


000010 #8. RO 
014760 @ARHER1 ,R4 7R4 HAS ADDR. OF RHER1 


012714 177777 : #~1 ,@R4 s;MOVE ERRORS INTO RHER1 
005212 aR2 + INCREMENT UNIT NO. 
005300 RO ; COUNT 
001373 1$ BRANCH IF 8 NOT DONE 
111137 015136 @R1,Q4TOTALAT ;SAVE TOTAL ATTENTION 
[USED IN DRIVE CLEAR TEST 

105037 015137 @ATOTALAT+1 CLEAR UPPER BYT 

aR1 TEST FOR ANY DRIVES PRESENT 

2$ [NONE RESPONDING - TYPE THE MESSAGE 

022270 XE2 ;SOME THERE - GO FILL *UNITS'’ TABLE 


020000 157226 2$: #SW13,aSWR ; INHIBIT ERROR TYPE OUT? 
3$ :'NO DRIVES'' MESSAGE IF NO 
021714 022626 SELTST CHECK FOR SELECTED UNIT START AND LOAD 
7" UNITS’* TABLE WITH DESIRED DRIVE IF SO 


021720 


021726 Ty :iTYPE ASCIZ STRING 
021760 
022062 
022172 


022170 
022264 044564 


022270 
00007 : #8.,RO0 
015072 HUNITS,R3 ‘POINTER 
177777 : al , (R3)+ “PRESET BLOCK TO ALL ONES 


; COUN 
3$ ;BRANCH IF 8 NOT DONE 
015072 apts 25 sPOINTER 


R 
022316 015114 @4NOUNIT NO. OF UNITS PRESENT 
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022322 012700 000010 #8. ,RO : COUNT ER 
011137 001176 aR1 , aA#STMPO ; TEMPORARY STORAGE 
006037 001176 : a4$TMPO [SET CARRY IF ONE IN 0 BIT 


103120 5$ 

172410 MOV R5,@RHCS2 Sg UNIT NUMBER 

024020 172430 #24020 ,,aRHDT 31S THIS A DUAL PORT RPO4 ? 
6$ TYPE DRIVE NO. IF SO 

020020 172420 #20020 ,@RHDT 31S THIS A SINGLE PORT RPO4 ? 
6$ ;TYPE DRIVE NO.IF YES 


024021 172410 #24021 ,@RHDT 71S_THIS A DUAL PORT RPOS ? 
TYPE UNIT NO. OUT 
020021 172400 #20021, @RHDT 31S THIS A SINGLE PORT RPOS ? 
6$ ; TYPE UNIT NO. IF SO 


022777 024022 172370 #24022 ,@RHDT 31S THIS A DUAL PORT RPO6 ? 
001463 6$ :TYPE THE NO IF SO 
020022 172360 #20022 ,@RHDT 4 THIS A SINGLE PORT RPO6 ? 
022422 6$ TYPE THE NO IF SO 


7*NO...IT'S NOT AN RPO4/RPOS/RPO6 DEVICE 
:*SO TYPE OUT THE DEVICE TYPE 


022424 022432 ,65$ zsTYPE ASCIZ STRING 
0224 1 BR 64$ 3;GET OVER THE ASCIZ 
R5,-(SP) ;GET READY TO TYPE UNIT NUMBER 


022464 -67$ pb ot ASCIZ STRING 
66$ T OVER THE ASCIZ 
172276 MO @RHDT , = (SP) [GET READY TO TYPE RHDT 


022514 zz TYPE ASCIZ STRING 
BR : GET OVER THE ASCIZ 
:NO RP0O4/5/6 FOUND SO BRANCH 


: MO 
001223 ,SCRLF 
MO a 


R5,~-(SP) :PUT DRIVE _ ON STACK 
; TYPE DRIVE NO 
022574 015114 ZINCR TOTAL NO. OF UNITS 


022600 : ;*RHCS2* UNIT ADDRESS 
022602 005300 [DRIVE COUNTER DOWN ONE 
022604 BNE 7 TEST AND DO NEXT UNIT IF 8 NOT DONE 


022606 @AUNITS ,@#UNIT ;SET UNIT NO. TO FIRST ONE FOUND/OR 0 
022614 @ANOUNIT ,@#NUNIT — ; SAVE NO. OF UNITS 
022622 @4NUNIT ;1F NUNIT = 0 THEN ONLY ONE UNIT 

71F NUNIT > 0 THEN MORE THAN ONE UNIT 


022626 SELTST: @ASELECT ;STARTING ADDRESS 200 ? 
022632 1403 B TST5 BRANCH IF STARTING FROM 200 
022634 013737 015122 015112 @AUNITSL,@#UNIT ; CHANGE UNIT NUMBER TO SELECTED ONE 
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022642 000004 TSTS: SCOPE 
022644 012737 000001 001212 MOV #1, STIMES 3;D0 1 ITERATION 
022652 012737 023322 001106 MOV #1$,$LPADR 33SET SCOPE LOOP ADDRESS 


045770 JSR PC ,@#CLDISK zFILL UNIT NO. 
015134 CLR @4ATTENT i CLEAR 


;*TEST FOR UNIT #0 


015112 @AUNIT T #0 NEXT IN THE UNITS TABLE ? 
10$ ; - TEST THIS UNIT 

000041 #41,R0 ; CHECK THE LOAD MEDIA LOCATION 

000011 #11, (RO) ; AN RP04/5/6 ? 


AD 
ELECTED ? 
210 START ?) 
UNIT #0 


0227 1 BNE 10$ 
022710 015120 @4SELECT 
022714 10$ 


;*INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
3* & DECREMENT THE ‘NOUNITS'’ PRESENT (TO BE TESTED) 


022716 015072 ANTS. RO ;LOAD UNITS TABLE POINTER 
022722 005720 (RO)+ ; 


022724 022710 177777 #-1, (RO) 
001404 10$ 


015112 (RO) ,@#UNIT 
015114 @4NOUNITS “DE CREMENT BECAUSE UNI 
022742 015112 : @4UNIT ,RO ;RO CONTAINS THE UNIT UNDER TEST 


@4RP06 CLEAR RPO6 DEVICE TYPE FLAG 
#24022 ,,@RHD! [DUAL PORT RPO6 ? 
sVES...SET eros 


#20022 ,@RHDT 7SINGLE PORT R 
2s zYES...SET FLAG 
3$ [DON'T SET THE RPO6 FLAG 
#-1 , @ARPOG SET THE FLAG 


ASSUME THE NEXT UNIT IS AN RPO4 


seseeeeee 


NOUMUSWN—O 


022746 017336 015134 ATABLE (RO) Aree : SET ei Ae ATTENTION BIT 
27 022762 -65$ YPE ASCIZ STR 
64$ SeCeT OVER THE ASCIZ 
015112 MO @AUNIT ,~(SP) UNIT NO. TO STACK 
:TYPE DRIVE NO. 
023026 ,67$ ;;TYPE ASCIZ STRING 
BR 66$ 3:GET OVER 7 asl 
171732 @RHSN, ~ (SP) oh @RHSN FOR TYPEOUT 
3;GO TYPE--OCTAL ASCII(ALL DIGITS) 
023062 ,09$ iE TYPE ASCIZ STRING 
023060 000410 BR 68$ T OVER THE ASCIZ 
023102 017746 171674 @RHDT ,~ (SP) T:SAVE @RHDT FOR TYPEOUT 


Sees 


Reanes 
ERES Se 
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CZRJHC P11 26-JUL-78 10:05 T5 TYPE SERIAL NUMBER AND DRIVE TYPE 


023106 104402 TYPOC 33GO TYPE=-OCTAL ASCII(ALL DIGITS) 


022777 024020 171664 #24020 ,@RHDT ;DUAL PORT RPO4 ? 
4$ a ASCII MSG OUT 
020020 171654 #20020 ,@RHDT NGLE PORT RPO4 ? 

4$ TYPE THE MESSAGE 


022777 024021 171644 #24021, @RHDT ;DUAL PORT RPOS ? 
001434 $ + TYPE THE "MESSAGE 
022777 020021 171634 #20021 ,@RHDT ;SINGLE PORT RPOS ? 
001430 5$ ;TYPE THE MESSAGE 


022777 024022 171624 #24022 ,@RHDT ;DUAL PORT RPO6 ? 
6$ TYPE THE MESSAGE 
020022 171614 #20022 ,@RHDT SINGLE PORT RPO6 ? 
023166 E 6$ TYPE IT OUT 
023170 1 DRIVE IS NOT RPO4/5/6 - SO 
;DO NOT TYPE ANY MESSAGE OUT 


;~SHOULD NEVER HAPPEN AT THIS POINT 
UNLESS DRIVE GOT SICK WHILE TESTING 
WAS IN PROGRESS 


023172 


023200 : .71$ ::TYPE ASCIZ STRING 
BR 70$ +°GET OVER THE ASCIZ 
1$ *SKIP NEXT ONES 


,73$ sz TYPE ASCIZ STRING 
72$ ::GET OVER THE ASCIZ 
1$ ZSKIP NEXT 


0232 .75$ TYPE ASCIZ STRING 
023272 00041 BR 74$ 3;GET OVER THE ASCIZ 


023322 : @RHSN ;READ SERIAL NO. AND DRIVE TYPE 
005777 5 @RHDT ; THESE TWO ARE TO HELP SCOPE LOOPS 
015130 @RHSN,@#SAVSN SAVE TO CHECK IF CLR RHCS2 BIT 5 CLEARS ANY BITS 
017737 015126 @RHDT,@#SAVDT ;SAVE TO CHECK IF CLR RHCS2 BIT 5 CLEARS ANY BITS 


SE i Ne Ge ed ed Gi Ge ed 0d Ge Ge Gd GO ed ed Gd GG Gg dd GG gg gg gd dG 





CZRJHCO,RPO4/5/6 DSKLS cre MACY11 apg Wore? 


CZRJHC.P11 26-JUL-78 1 


000004 
012737 
004737 

032713 
001550 


104401 
000421 
104401 
000424 
104401 
000430 


032713 





000006 017330 
045770 
010000 


023376 
023446 
023524 


010000 
023620 


B 6 
27=JUL-78 11:16 PAGE 67 


#TTNO,@4TSTNM 
PC ,@#(LDISK 


° 


TYPE SERIAL NUMBER AND DRIVE TYPE 


;THIS SAVES TEST NUMBER 
sGIVE INITILIZE 

;CHECK MOL IN RHDS1 
;BRANCH IF MOL LOW 


3: TYPE ASCIZ STRING 


3:GET OVER THE ASCIZ 


;CHECK MOL IN RHDS1 
;BRANCH IF MOL IS HIGH 
sz TYPE ASCIZ STRING 
:7;GET OVER THE ASCIZ 
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CZ7RJHC P11 26-JUL-78 10:05 T6 CHECK MOL TO BE LOW 


023710 000004 TST7: SCOPE 
023712 012706 001000 MOV #STACK, SP ;RESET STACK 
023716 012737 000007 017330 MOV #TTNO,@ATSTNM =; THIS SAVES TEST NUMBER 


023724 004737 045770 JSR PC,@4#CLDISK ; INIT AND SET UP GENERAL REG. 
AND UNIT NUMBER 
023730 012777 000001 171040 MOV #DMD , @RHMR ;SET DIAGNOSTIC MODE 
023736 013777 015206 171012 MOV @4PKACK,@RHCS1 ;LOAD PACK ACKNOWLEDGE COMMAND INTO RHCS1 


;SAVE REGISTERS FOR COMPARISON AFTER GO 
023744 004037 046462 JSR RO, @#SAVER 7 SAVE 

014750 RHWC ; FROM 

016264 REINTO :TO 
023754 000023 19. NUMBER OF REGISTERS SAVED 


;GIVE GO TO PACK ACKNOWLEDGE COMMAND 
023756 052777 170772 BIS #G0,@RHCS1 :GO TO PACK ACKNOWLEDGE COMMAND 


;CHANGE SAVED REGISTERS TO EXPECTED VALUES 
023764 052737 016314 BIS AVV,,@AREINTO+30 ;SAVED RHDS1 


;AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


;BE DONE 
023772 004037 JSR RO, @#SAVER 7 SAVE 
023776 RHWC 7FROM 
024000 WRF ROM 
024002 000023 19. NUMBER OF REGISTERS SAVED 


;AS_UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

;SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
113737 016311 015245 MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 


WDWNAUSWN—O 


3 


31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 


MNrnr 
Wr 


COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND 
[WITH AFTER GO 
024012 SR RO, a@4#COMPAR ; COMPARE 
NTO [GOOD BUFFER 
; TEST ores 


ee FOR ERROR 


RETURN FOR GOOD COMPARISON 
052774 : @FERWORD ,R5 GETTING a TO INDEX 


R5.R ;DOUBLE ERROR WORD 
016537 014746 045534 Rdc~2(R5) , @AREGADR ;FAILING REGISTER ADDRESS 
104001 1 ; IMPROPER REGISTER CHANGE 
zAFTER PACK ACKNOWLEDGE COMMAND 
WITH GO IS GIVEN 
024050 000207 PC RETURN TO COMPARISION 


024052 





Dd 6 
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CZRJHC .P11 26-JUL-78 10:0 17 PACK ACKNOWLEDGE COMMAND TEST 


024052 000004 TST10: 
#STACK , SP ;RESET STACK 


MO 
017330 MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
J PC ,@4#CLDISK ; INIT DRIVE 
170676 MO #DMD , @RHMR SET DIAGNOSTIC MODE 
RO, @4MAKECYL ; SUBROUTINE TO GIVE A SEEK 
THIS SHUOLD CHANGE RHCC TO 0 


***DJAGNOSTIC CODE*** 





CZRJHCO,RP04/5/6 DSKLS crs 


CZRJHC P12 


024106 
024110 
024116 
024124 
024132 


024136 
024144 


024152 
024156 


024202 
024204 


10=NOV=77 
000004 


012777 
012705 


013737 
012737 


012706 
011502 


013737 


000001 
177777 
000040 


014756 


000004 
024202 
001000 


045534 


000002 
015010 


001176 


MACY11 30A(1052) 


TIMOT=4 


27-JUL-78 


E 6 
11:16 PAGE 71 


«REM % 
THE FOLLOWING TESTS WILL ATTEMPT TO CATCH THOSE BUGS WHICH FAULT 
INSERTION HAS SHOWN US WE MISSED IN THE FIRST PART OF THIS TEST. 


THIS TEST WILL ASCERTAIN THAT THE ALL RH11 REGISTERS WIIL 
NOT CAUSE A NON-EXISTANT MEMORY ERROR WHEN ACCESSED 
BY A ''TST'' INSRUCTION. 


RESPOND TO I.E. 


fe 
TST11: 
001212 
017330 
170622 


SCOPE 
MOV 
MOV 
MOV 


001176 
000004 


E00: 
000004 000: 


-STIMES 
#TTNO,aATSTNM 
#CLR,@RHCS2 
#RHCS1,R5 


@4TIMOT ,STMPO 
#E00,a4T IMOT 


AMSTACK, SP 
(R5) ,R2 
R2,REGADR 
(R2) 

#2,R5 

R5 ,ARHEC2 

100 

000 

42 

$TMPO ,a4TIMOT 


3300 1 ITERATION 
;THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 


7RS5=LIST POINTER. 


SAVE TIMEOUT VECTOR. 
[SET VECTOR TO E00 


SET STACK POINTER. 
;R2=RH11 ADDRESS. 
;DOES THE RH11 REGISTER RESPOND? 


; UPDATE ADDRESS 
zAT THE END OF LEGAL RH11 REGISTERS? 


sNOPE 
;YES! GOTO 000. 


RESTORE TIMEOUT VECTOR. 
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CZRIMC.P12 10=NOV=77 11:09 111 BCTA LEGAL REGISTER RESPONSE TEST 


3190 





CZRJHCO, pos DSKLS 5 Ci 


CZRJHC .P 


024212 


024242 
024246 
024252 
024260 


024262 
024266 


024272 
024300 
024302 


10-NOV=7 


013702 
010237 
012737 


005012 


112712 
011237 


023737 
001401 
104044 


014750 


000377 
001126 


001126 


G 6 
MACY11 _— 27-JUL-78 11:16 PAGE 73 SEQ 0071 


001124 


001124 


BCTA LEGAL REGISTER RESPONSE TEST 


-REM % 
THE FOLLOWING 6 Mag WILL TEST THE BYTE LOGIC FOR THE RH11 REGISTERS 
NO ATTEMPT IS MADE TO DETERMINE IF ALL POSSIBLE DATA PATTERNS CAN BE 
LOADED, ONLY THAT THE RH11 HARDWARE WILL ALLOW THE PROGRAM TO SELECTIVLY 
MANIPULA TE BYTES USING THE FOLLOWING COMMANDS: 

1). MOVE BYTE BOTH TO AND FROM THE WORD COUNT REGISTER 

2). BIT SET INTO THE WORD COUNT REGISTER. 


. BIT CLEAR INTO THE WORD COUNT REGISTER. 


#1,$TIMES 3;D0 1 ITERATION 
THIS SAVES TEST NUMBER 
ACLR,@RHCS2 ;CLEAR RH11 CONTROLLER 


#STACK, SP :SET STACK POINTER. 

RHWC ,R2 ;R2=RH11 WC ADDRESS. 

R2,REGADR “REGISTER ADDRESS TO REGADR FOR TYPING. 
#377, $GDDAT : $GDDAT=S/B. 

(R2) :CLEAR RH11 WC. 


#377, (R2) ;SET WC TO LO BYTE. 
(R2) , SBDDAT ;SBDDAT=ACTUAL WAS 


SBDDAT,$GDDAT ;COMPARE RESULTS 
HS NEXT TEST 


A of oft oft off off of off oft ob ofl lt oid ol ol odd ot of lt tal al Lala lal lt al LA Cal Lal Cal LA al Ca Cal A a A Ll La 
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CZRIHC.P12 10-NOV=77 11:09 Tte BCTA MOVB LO BYTE TO wC 


an 
NN 
2D 


TST13: 
009001 MO #1, STIMES 3:D0 1 ITERATION 
000013 ATTNO,@ATSTNM :THIS SAVES TEST NUMBER 
012777 000040 #CLR,@RHCS2 [CLEAR RH11 CONTROLLER 
012706 001000 #STACK, SP :SE1 STACK POINTER. 
013702 014750 RHWC RZ ;R2=RH11 WC HI BYTE ADDRESS. 
010237 34 R2,REGADR 
012737 #177400,$GDDAT ;$GDDAT=S/8. 
024352 005012 : (R2) :CLEAR RH11 WC. 
024354 005202 R2 :R2=HI BYTE ADDRESS. 
024356 112712 : #377, (R2) :SET WC HI BYTE. 
024362 005302 R2 ;R2=FULL WORD ADDRESS. 
024364 011237 (R2) , $BDDAT : $BDDAT=ACTUAL. 
024370 023737 001124 SBDDAT , SGDDAT : COMPARE RESULTS. 


TST14 NEXT 
44 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
a 
i 
j 
q 
i 
i 
i 
: 





oO 
™~ 
» 
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MOVB HI BYTE TO wC 


CZRJHCO ,RPOS/5/6 DSKLS mn 
CZRIHC P12 10=NOV-77 11:09 113 BCTA 


024402 
024404 
024412 
024420 


024426 


024442 
024450 


024452 
024456 


024462 
024466 


024474 
024476 


012777 
012706 
013702 
010237 
012737 
005012 


012712 
152712 


011237 
023737 


001401 
104045 


000001 
000014 
000040 
001000 
014750 
045534 
000377 


000252 
000125 


001126 
001126 


170326 


TST14: 


a IMES 
#TTNO, aa TSTNM 
#CLR, @RHCS2 


#STACK, SP 
RHWC ,R2 
R2,REGADR 
#377, $GDDAT 
(R2) 


#252, (R2) 
#125, (R2) 


(R2) , SBDDAT 
SBDDAT , SGDDAT 


TST15 
45 


;;D0 1 ITERATION 

THIS SAVES TEST NUMBER 
CLEAR RH11 CONTROLLER 
7;SE1 STACK POINTER. 
;R2=RH11 WC ADDRESS 

; SGDDAT=S/B. 

;CLEAR RH11 WC. 


SET UP WC 
:D0 A BISB 


; SBDDAT=WwAS. 


; COMPARE RESULTS 
NEXT TEST 


Ww 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
a 
3 
3 
3 
3 
3 
M 
3 
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CZRIHC.P12 10-NOV-77 11:09 114 A B!ISB LO BYTE TO wC 


TST15: 
009001 001212 MO ::D0 1 ITERATION 
000015 017330 *THIS SAVES TEST NUMBER 
024516 012777 000040 170230 #CLR,@RHCS2 >CLEAR RH11 CONTROLLER 
024524 012706 001000 ASTACK, SP :SE1 STACK POINTER. 
013702 014750 RHWC ,R2 :R2=RH11 WC ADDRESS. 
010237 R2,REGADR 
024540 012737 001124 #177400,$GDDAT ;$GDDAT=S/B. 
024546 005012 : (R2) ZCLEAR RH11 WC. 
024550 005202 R2 :R2 =HI BYTE. 


024552 112712 #125, (R2) SET UP RH11 WC. 
024556 152712 : M252, (R2) D0 A BISB. 


024562 005302 R2 zR2=FULL WORD ADDRESS. 
024564 011237 (R2) , SBDDAT ; SBDDAT=WAS. 
024570 023737 001124 $BDDAT,$GDDAT  ;COMPARE RESULTS. 


024576 001401 TST16 NEXT TEST 
024600 104045 45 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 





CZRJHCO,RPO4/5/6 DSKLS rime 


CZRJHC.P12 
024602 
024604 
024612 
024620 
024626 
024632 


024650 
024652 
024656 
024662 
024666 


024674 
024676 


10-NOV-77 


012777 
012706 
013702 
012737 
005012 
012712 
142712 
011237 
023737 


009001 
000016 
000040 


001000 
014750 


045534 
000252 


000377 
000125 
001126 
001126 


MACY11 30A(1052) 
T15 


001212 
017330 
170126 


001124 


TST16: 


BCTA 


#1,STIMES 
#TTNO,@4TSTNM 
#CLR,@RHCS2 
STACK, SP 
RHWC ,R2 
R2,REGADR 
#252, $GDDAT 
(R2) 
#377, (R2) 
#125, (R2) 
(R2) , SBDDAT 
$BDDAT , $GDDAT 
TST17 
46 


K 6 
27-JUL-78 11:16 PAGE 77 
BISB HI-BYTE TO wC 


3;D0 1 ITERATION 

CLEAR RATT CONTROLLER 
;SE1 STACK POINTER. 
;R2=RH11 WC ADDRESS. 

; SGDDAT=S/B. 

CLEAR RH11 WC. 

SET wC=0000377 

:D0 A BICB 

; SBDDAT=WAS. 


; COMPARE - acs 
SNEXT TEST 
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CZRJHC.P12 10-NOV-77 11:09 T16 A BICB LO-BYTE TO wC 


TST17: 
000001 2 MO #1,$TIMES :;D0 1 ITERATION 
000017 #TTNO,@4TSTNM + THIS SAVES TEST NUMBER 
024716 000040 #CLR,@RHCS2 CLEAR RH11 CONTROLLER 
024724 001000 MSTACK, SP ;SET STACK POINTER. 
014750 RHWC ,R2 ;R2=RH11 WC ADDRESS. 
045534 R2,REGADR 
024740 012737 125000 #125000,.$GDDAT ;$GDDAT=S/B. 
024746 005012 : (R2) ;CLEAR RH11 WC. 
024750 005202 R2 ;R2=HI BYTE. 


024752 112712 MOVB #377, (R2) SET wC=177400 
024756 142712 : #125, (R2) :D0 A BICB 


024762 005302 R2 zR2=FULL WORD. 
024764 011237 (R2) , SBDDAT ; SBDDAT=WAS. 
024770 023737 $BDDAT,$GDDAT = ;C ge RESULTS. 


024776 E TST20 SNEXT TEST 
025000 46 


3 
3 
38 
3 
3 
3% 
3 
3 
3 
3 
3 
3 
3 
3 
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CZRIHC.P12 10-NOV-77 11:09 T17 BCTA BICB HI- BYTE TO wC 


REM a 
THIS TEST ATTEMPT TO ACCESS AN ILLEGAL g- ine WITHIN THE RANGE 
OF ADDRESSES SELECTED BY THE XOR'S. THE RH11 ADDRESS DECODE LOGIC WILL ALLOW UP TO 32 
CONTIGUOUS REGISTERS TO EXIST, IN OUR CONFIGURATION ONLY 16 WILL REALLY 
EXIST, THIS TEST ATTEMPTS TO ACCESS THE 20(8) REGISTER - IF IT RESPONDS 
THE TEST WILL TYPE OUT AN ERROR. 


FOR THE CASE OF THE RH70, THE CONFIGURATION ALLOWS 18 OR 32 REGISTERS, SO 
WE WILL ATTEMPT TO ADDRESS REGISTER 23(8), 33(8) OR AS BEFORE THE LAST 
orn S 2. 


025002 000004 TST20: 

025004 001212 MO #1, STIMES 3;D0 1 ITERATION 
025012 017330 MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
025020 167726 #CLR,@RHCS2 ;CLEAR RH11 CONTROLLER 


025026 @4#RH70 CHECK TO SEE IF RUNNING WITH RH70 
0250 1$ 71F NOT...SKIP NEXT & DO FOLLOWING 
015016 RHCS3,R2 :R2 = ee LEGAL RH70 REG ADDRESS 
2s SKIP NEXT 
013702 015010 : RHEC2,R2 ;R2 = LAST LEGAL RH11 REG ADDRESS. 
062702 000002 : #2,R2 ;R2 = FIRST ILLEGAL ADDRESS. 
010237 R2,REGADR 
005037 $BDDAT ; SBDDAT=WAS. 
005037 SGDDAT ; SGDDAT=S/B. 
013737 000004 @4TIMOT,STMPO ;SAVE TIMEOUT VECTOR. 


obo bababob ob abobabobobob ab ob obobob bob ob ab ob ob bb ob ob ob -) 


025066 
025074 012737 025120 900004 #010, a4TIMOT ;SET TIMEOUT VECTOR TO 010. 


025102 001000 : #STACK , SP SET THE STACK POINTER. 

025106 (R2) TEST ADDRESS. 

025110 #24 ,R2 ;THIS MIGHT BE THE CASE OF 32 REGISTERS 
025114 (R2) TEST IT AGAIN 

025116 47 


025120 013737 : $STMPO,a4TIMOT ;RESTORE TIMEOUT VECTOR. 
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CZRIHC P12 10-NOV-77 11:09 T20 BCTA ILLEGAL REGISTER TEST 


“NOW WE ATTACK BTCB 


-REM a 
THE FOLLOWING TWO TESTS DETERMINE IF ALL NON DRIVES SET THE 
NED BIT AND THAT ALL EXISTING DRIVES CLEAR THE NED BIT. 

THE TESTS LOOK AT TOTALAT TO DETERMINE WHICH DRIVES EXIST AND TEST THAT 
THESE DRIVES WILL CLEAR THE NED BIT. AND ALSO THAT NON EXISTANT DRIVES 
WILL SET THE NED BIT. 

ON FIRST PASS ONLY, IF ALL DRIVES ARE ON LINE A MESSAGE WILL SO ADVISE THE 
OPERATOR. THE TEST WILL CONTINUE REGARLESS OF THE OPERATORS ACTION. 


025126 000004 TST21: 
001272 MO #1 ,STIMES ;;D0 1 ITERATION 
017330 #TTNO,@#TSTNM © THIS SAVES TEST NUMBER 
025144 012777 000040 167602 ACLR,@RHCS2 [CLEAR RH11 CONTROLLER 


025152 123727 000377 @ATOTALAT ,#377 zARE ALL DRIVES ON LINE. 
025160 001150 u11 ;NO GO RUN THE TEST. 


025162 023727 000000 $PASS ,40 31F PASS #0 THEN TYPE MESSAGE 
zADVISING OPERATOR 
THAT THIS TEST WILL NOT BE RUN 


PARR R RRR R RY 
oS ee 


025170 
025172 


025176 : 
025204 zz TYPE ASCIZ STRING 


025266 
025350 


025430 : 
025426 BR 73GET OVER THE ASCIZ 


025502 001000 ; AMSTACK, SP SET STACK POINTER. 


025506 013702 014754 RHCS2,R2 ;R2=RH11 RHCS2 ADDRESS. 
025512 010237 045534 R2,REGADR 


025516 013700 015136 @A4TOTALAT RO 
005001 R1 


006000 : RO 
025526 103423 N11 


025530 910137 001124 R11: R1,$GDDAT i; $GDDAT=S/B. 
025534 052737 010000 #NED , SGDDAT 


025542 013705 014756 RHCS1,R5 ;ADDRESS OF A DEVICE REGISTER. 

025546 910112 : R1,(R2) ;LOAD A NON-EXISTANT DRIVE. 

02555C 011537 001176 (R5) ,STMPO ;ATTEMPT TO READ FROM DEVICE REGISTER. 
025554 011237 001126 (R2) , $BDDAT ; SBDDAT=WAS. 


Sd Sead Sed Sen Ge ed Set a a eed ed Sd a a a ad Sd Sd a a a Sd Se a a a Sed 





CZRJHCO,RP04/5/6 DSKLS 5 tos 


CZRIMC P12 


%455 


025560 
025566 
025574 
025576 
025600 
025604 
025604 

5606 


025610 


10=NOV-77 
042737 
023737 
001005 
005201 
020127 


001402 
000746 


104050 


167770 001126 
001126 001124 


000010 


MACY11 30A(1052) 
T21 


N11: 


8 
ge Sy 11:16 PAGE 81 SEQ 0079 


BCT 
BIC 


(NED) NON-EXISTANT DRIVE TEST. (SET) 
#*C<NED!US4!US2!US1>, SBDDAT ; SBDDAT=SAVED DATA. 
S mpatesaenes ; COMPARE RESULTS. 


R1 

R148. ; TESTED ALL DRIVES YET. 
TST22 NEXT TEST 

$11 

50 


cz 
C2 


¢ 7 
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CZRIHC P12 10-NOV-77 11:09 T21 BCTB (NED) NON-EXISTANT DRIVE TEST. (SET) C2 
025612 000004 TST22: 
2 ;;D0 1_ ITERATION 


000001 
000022 ;THIS SAVES TEST NUMBER 
012777 000040 167116 #CLR,@RHCS2 ;CLEAR RH11 CONTROLLER 


012706 001000 MSTACK, SP SET STACK POINTER. 
013702 014754 RHCS2,R2 ;R2=RH11 RHCS2 ADDRESS. 
R2,REGADR 
Ser atta 
006000 : RO 
102020 N12 
010137 R1,$GDDAT 
025670 013705 014756 RHCS1,R5 ;ADDRESS OF A DEVICE REGISTER. 
025674 010112 : R1,(R2) SELECT UNIT. 
025676 011537 001176 (R5),STMPO ATTEMPT TO READ FROM DEVICE. 


025702 011237 001126 (R2) , $B ; SBDDAT=WAS. 
025706 042737 167770 PCED 'US6!US2!US1>, S$BDDAT ;SBDDAT=SAVED DATA. 


025714 023737 001126 $BDDAT,$GDDAT ;COMPARE RESULTS. 
001005 E12 


025722 


025724 005201 : R1 
025726 000010 R1,48. TESTED ALL DRIVES. 
025732 TST23 [NEXT TEST 


025734 BR $12 
025736 : 50 
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-REM 4 
TEST TO SEE IF WE CAN READ FROM THE ‘'AS’’ REGISTER AND NOT CAUSE 
A NED NON-EXISTANT DRIVE ERROR 


025740 000004 TST23: SCOPE 
212 MOV #1, STIMES 3;D0 1 ITERATION 
MOV MTTNO,@A4TSTNM = ;THIS SAVES TEST NUMBER 
025756 012777 000040 MOV #CLR,@RHCS2 CLEAR RH11 CONTROLLER 
025764 012706 MOV STACK , SP SET STACK POINTER. 


025770 013702 014754 MOV RHCS2,R2 ;R2=RH11 CS2 ADDRESS. 
025774 012737 000007 MOV #US4!US2!US1,$GDDAT ; SGDDAT=S/B. 


026002 013705 014756 RHCS1,R5 sADDRESS OF A DEVICE REGISTER. 
026006 012712 000007 : #US4!US2!US1,(R2);LOAD A NON-EXISTANT DEVICE. 
026012 013702 014774 RHAS ,R2 ;R2= "AS". 

026016 011237 001176 (R2) ,$TMPO ;ATTEMPT TO READ FROM DEVICE AS. 
026022 (R2) ;CLEAR AS REGISTER. 

026024 014754 RHCS2,R2 ;R2=RH11 CS2 ADDRESS. 

026030 010237 045534 R2,REGADR 


026034 011237 001126 MO (R2) , SBDDAT ; SBDDAT=WAS. 
026040 042737 167770 001126 #°C<NED!US4!US2!US1>, SBDDAT; SAVE NED AND DEVICE SELECTED. 


026046 023737 001126 001124 $BDDAT,SGDDAT ;COMPARE RESULTS. 
026054 001401 TST24 NEXT TEST 
026056 104051 51 
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THE NEXT THREE TESTS W:LL TEST THE BUS ADDRESS REGISTER IN BOTH WORD 
oF is MODE. THE PATTERNS ARE CHOSEN TO PICK UP ANY DROPPED OR STUCK 


TST24: 
#1,STIMES 3:D0 1 ITERATION 
ATTNO,@4TSTNM ;THIS SAVES TEST NUMBER 
012777 000040 ACLR,@RHCS2 ;CLEAR RH11 CONTROLLER 


012706 STACK, SP SET STACK POINTER. 


026110 013702 014752 RHBA ,R2 ;R2=RH11 BA ADDRESS. 
026114 010237 045534 R2,REGADR 
026120 012705 026160 MLSTI4A,R5S ;R5=TEST LIST ADDRESS. 


026124 012537 001124 g (R5)+,$GDDAT ; SGDDAT=S/B. 


026130 013712 001124 SGDDAT, (R2) SET BUS ADDRESS REGISTER. 
026134 011237 001126 (R2) , SBDDAT ;READ BUS ADDRESS REGISTER. 


026140 023737 001126 S$BDDAT,$GDDAT  ;COMPARE RESULTS. 
aepe4 E ai ;GET NEXT TEST DATA. 


026152 N14: - zAT END OF LIST 
L sNO! 
TST25 sNEXT TEST 


BR 
LST14A: 
4 


026244 173776 173776 
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026246 167776 167776 


026256 


3 
3 
3 
7 
| 
i 
i 
4 
4 
4 
4 
é 
4 
4 
d 
4 
d 
é 
ri 
é 
d 
d 
Fi 
d 
d 
d 
d 
d 
r 
d 
d 
4 





G 7 
CZRJHCO,RP04/5/6 DSKLS rm MACY1T1 mya ere? ie Ga 11:16 PAGE 86 
C2RJHC.P12 10-NOV-77 11:09 T24 C BUS ADDRESS REGISTER 


TST25: 
009001 MO #1,$TIMES ;;D0 1 ITERATION 
000025 #ATTNO, a4 TSTNM THIS SAVES TEST NUMBER 
012777 000040 ACLR,@RHCS2 SCLEAR RH11 CONTROLLER 
012706 001000 ASTACK,SP sRESET STACK. 
013702 014752 RHBA ,R2 ;R2=RH11 BA ADDRESS. 
010237 R2,REGADR 
012705 MLSTISA,R5S ;RS=TEST LIST ADDRESS. 
026324 005012 : (R2) ;CLEAR RH11 BA REGISTER. 
026326 012537 (R5)+,$GDDAT ;SGDDAT=S/B. 


026332 113712 : S$GDDAT , (R2) SET BUS ADDRESS REGISTER. 
026336 011237 (R2) , SBDDAT ;READ BUS ADDRESS REGISTER. 


026342 023737 001126 001124 SBDDAT,$GDDAT ;COMPARE RESULTS. 
026350 R15 


026352 53 
026354 R15: (R5) Fy OF TEST LIST. 


L15 :NO! 
BR TST26 NEXT TEST 
THIS LIST WILL BE USED TO LOAD THE LOWER BYTE OF THE BA REGISTER. 


[STISA: 2 
4 


HEKHLHSPH_ KRHA HLL LEE LLLL LLL LLL LLL LS 
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026502 
026506 


026512 
026520 


026522 
026524 


026526 
026530 


026532 
0265 


026570 


012777 
012706 
013702 
12705 
005012 
012537 
005202 
113712 
005302 


011237 
000337 


023737 
001401 


104053 


005715 
001356 
00042 


009001 
000926 
000040 
001000 
014752 


045534 
026532 


001124 
001124 


001126 
001124 


001126 001124 


MACY11 30A(1052) 
T25 


TST26: 


R16: 


H 
27-JUL=78 11:16 


PAGE 87 
BCTC BUS ADDRESS REGISTER LO-BYTE 


;;D0 1 ITERATION 

STHIS SAVES TEST NUMBER 
#CLR,@RHCS2 ZCLEAR RH11 CONTROLLER 
STACK, SP RESET STACK. 
RHBA ,R2 ;R2=RH11 BA ADDRESS. 
R2,REGADR 
#LST16A,R5 ;RS=TEST LIST ADDRESS. 
(R2) CLEAR BA REGISTER. 
(R5)+,$GDDAT ; SGDDAT=S/B. 
R2 ;R2=HI BYTE ADDRESS. 
$GDDAT , (R2) ;SET BUS ADDRESS REGISTER HI-BYTE. 
R2 ;R2=FULL WORD ADDRESS. 


(R2) , SBDDAT ;READ BUS ADDRESS. 
$GDDAT SADJUST DATA FOR HI BYTE. 


a ee ; COMPARE RESULTS. 


7 OKA 
53 
(R5) ;AT END OF TEST LIST. 
L16 NOPE 

sNEXT 


BR TST27 TEST 
:THIS LIST WILL BE USED TO LOAD THE UPPER BYTE OF THE BA REGISTER. 


LST16A: 2 
4 


=e 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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-REM x 

THIS TEST CAUSE AN RH1~ INTERRUPT VIA THE SPECIAL COMMAND SEQUENCE 
BIS MIE ,@RHCS2. THIS TEST PROVES ONLY THAT THE HARDWARE CAN HANDLE 
INTERRUPTS PROPERLY 


026572 000004 TST27: 
#1, STIMES 3;D0 1 ITERATION 
AMTTNO,@ATSTNM =; THIS SAVES TEST NUMBER 
012777 ACLR,@RHCS2 CLEAR RH11 CONTROLLER 
012706 AMSTACK , SP SET STACK POINTER. 
013702 RHCS1,R2 ;R2=RH11 ADDRESS. 
010237 045534 
005037 ; SBDDAT=WAS. 
005037 S$GDDAT ; $GDDAT=S/B. 


017737 001176 @RPVEC, SAVE RH11 INTERRUPT VECTOR. 
012777 166066 #021, aRPVEC 7SET RH11 INTERRUPT VECTOR TO 021. 


052712 3 MIE, (R2) CAUSE INTERRUPT. 
000240 WAIT FOR INTERRUPT. 


000240 

011237 001124 (R2) , SGDDAT ;SAVE CONTENTS OF REGISTER. 
104054 54 

013777 001176 166042 021: $TMPO ,ARPVEC RESTORE RH11 INTERRUPT VECTOR. 


HRERRARAHRLHAEHAAL HLA PHEHEHLHAHLH DSL 
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pity — RESET CAN GCNERATE THE SIGNAL CLR L. 


THE PROGRAM SETS THE PORT SELECT BIT .THEN DOES A RESET 
IF THE SIGNAL CLR L WAS GENERATED THE PORT SELECT BIT WILL CLEAR. 


026702 
#1, STIMES ;D0 1 ITERATION 
000030 #TTNO,@4TSTNM STHIS SAVES TEST NUMBER 
012777 000040 #CLR,@RHCS2 [CLEAR RH11 CONTROLLER 


026726 013702 014756 RHCS1,R2 3R2=RH11 CS1 ADDRESS 
026732 045534 R2,REGADR 
026736 001124 SGDDAT ; SGDDAT=S/B 


026742 001000 : STACK, SP ;SET STACK POINTER. 
026746 002000 MO #PSEL, (R2) :SET PORT SELECT FLOP. 
026752 000005 DO A BUSA INIT. 


026754 011237 001126 (R2) , $BDDAT ; SBDDAT=WAS. 
0267 042737 177677 001126 #*C<IE>,SBDDAT ;SAVE ONLY I.E. BIT. 


023737 001126 001124 $BDDAT,$GDDAT ;COMPARE RESULTS. 
001401 TST31 NEXT TEST 
026776 104055 55 


re 
r 
re 
4: 
re 
ry 
re 
pe 
4) 
4 
a 
6) 
re 
q 
re 
ra 
q 
ra 
‘ 
Ps 
‘ 
rs 
r4 
4 
4 
4 
L 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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-REM a 
SET THE MXF FLOP AND RCAD IT BACK. 


TST31: 
001212 MOV #1,STIMES :zD0 1 ITERATION 
017330 ATTNO,@4TSTNM ; THIS SAVES TEST NUMBER 
@4RH70 TEST FOR RH70 CONTROLLER 
30$ IF FLAG = 1, SKIP THIS TEST 
027110 TST32 ; JUMP TO NEXT TEST 
000040 165716 #CLR,@RHCS2 = CLEAR RH11 CONTROLLER 


001000 STACK, SP SET STACK POINTER. 
014754 RHCS2,R2 ;R2=RH11 CS2 ADDRESS. 
045534 R2,REGADR 

027052 012737 001000 #MXF , SGDDAT 3; $GDDAT=S/B. 

027060 012712 001000 : HMXF , (R2) ;LOAD MXF 

027064 011237 001126 (R2) , SBDDAT ; SBDDAT=WAS. 


027070 042737 176777 001126 #°C<MXF>,SBDDAT ;SAVE ONLY MXF 


at hg 023737 001126 001124 $BDDAT , SGDDAT eT Tas RESULTS 


7104 E TST32 NEXT T 
027106 56 
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-REM % 
SET THE UNIBUS PARITY CRROR FLOP DIRECTLY VIA A MOV #UPE TO RHCS2 
ATTEMPT TO READ IT BACK. 


& 
027110 000004 TST32: SCOPE 
000001 MOV #1,$TIMES ;;D0 1 ITERATION 
000032 MOV #TTNO,@#TSTNM THIS SAVES TEST NUMBER 
017334 TST a4RH70 [TEST FOR RH70 CONTROLLER 
BEQ 30$ SIF FLAG = 1, SKIP THIS TEST 
027224 JMP TST33 [JUMP TO NEXT TEST -------------------- ) 


027140 012777 000040 #CLR,@RHCS2 CLEAR RH11 CONTROLLER 
027146 012706 001000 #STACK,SP SET STACK POINTER. 
027152 013702 014754 RHCS2,R2 ;R2=RHCS2 ADDRESS. 
027156 010237 045534 R2,REGADR 

027162 012737 020000 001124 #MUPE , SGDDAT ; SGDDAT=S/B. 

027170 013712 001124 : $GDDAT, (R2) ATTEMPT TO SET UPE. 
027174 000240 NOP 

027176 000240 


027200 011237 001126 (R2) , SBDDAT ;SBDDAT=ACTUAL DATA. 
027204 042737 157777 #*C<UPE>,$BDDAT ;SAVE ONLY UPE. 


027212 023737 001126 SBDDAT,$GDDAT ;COMPARE RESULTS. 
027220 TST33 SNEXT TEST 


027222 57 
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-REM a 
SET THE UNIBUS PARITY ERROR FLOP AND ATTEMPT TO CLEAR IT WITH A 
CONTROLLER CLEAR. 


027224 000004 TST33: 
MES ;;D0 1 ITERATION 


000001 MO #1,$ 
000033 #TTNO,@#TSTNM THIS SAVES TEST NUMBER 
027242 012777 000040 #CLR,@RHCS2 [CLEAR RH11 CONTROLLER 


027250 012706 001000 STACK , SP SET STACK POINTER. 
027254 013702 914754 RHCS2,R2 ;R2=RHCS2 ADDRESS. 
010237 34 R2,REGADR 
005037 $GDDAT ; SGDDAT=S/B. 
aT Ly : MUPE , (R2) ;SET UNIBUS PARITY ERROR SET. 
027276 000240 
027300 012712 ACLR, (R2) CONTROLLER CLEAR. 


027304 011237 001126 (R2) , SBDDAT READ STATUS 
027310 042737 157777 001126 #*C<UPE>,S$BDDAT ;SAVE ERROR. 


027316 023737 001126 001124 SBDDAT,$GDDAT ;COMPARE RESULTS. 
13's NEXT TEST 
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-REM a 
SET THE UNIT SELECT REGISTER TO DRIVE #7 ALL BITS SET. GENERATE A 
CONTROLLER CLEAR AND VERIFY THAT THE UNIT SELECT REGISTER IS CLEARED. 


TST34: 
#1,STIMES 7:D0 1 Mpg, 
#TTNO,@4TSTNM THIS SAVES TEST NUMBER 
012777 ACLR,@RHCS2 ;CLEAR RH11 CONTROLLER 
012706 #STACK, SP sSET STACK POINTER. 
013702 RHCS2,R2 ;R2=CS2 ADDRESS. 
027364 R2,REGADR 
027370 SGDDAT ;SGDDAT=S/B. 
027374 012712 g #US4'US2'US1,(R2) ;LOAD RHCS2 DRIVE SELECT 
027400 000240 NOP 
027402 000240 
027404 012712 CLR, (R2) ;GENERATE CLR. 


027410 011237 001126 MO (R2) , SBDDAT ;READ RHCS2 
027414 042737 177770 001126 #*C<US4!US2!US1>,$BDDAT;SAVE DRIVE SELECT BITS. 


027422 023737 001126 901124 $BDDAT,$GDDAT ;COMPARE RESULTS. 
027430 001401 TST35 NEXT TEST 
027432 104060 60 


4i 
4: 
4: 
4: 
4! 
4: 
4: 
4: 
4: 
4: 
4: 





See aig DSKLS _ 
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027472 


027476 
027502 


027510 
027514 
027520 


027524 
027530 


027536 
027544 
027546 


012777 
012706 


013702 
012737 


012712 


013702 
010237 


011237 
042737 


023737 
001401 
104061 


000001 
000035 
017334 
027550 
000040 
001000 
014754 
040000 
020000 


014756 
045534 


001126 
137777 


001126 


001126 
001124 


30A(1052) 
134 


-REM 
ET THE 
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CSRB UNIT SELECT CLEAR TEST 


4 
UPE FLOP UNiBUS PARITY ERROR. VERIFY THAT THE SETTING OF (UPE) 


S 
ALSO SETS THE TRANSFER ERROR (TRE) FLOP 


TST35: 


#1,$TIMES 
#TTNO, aa TSTNM 
aaRH70 

30$ 

TST36 
#CLR,@RHCS2 
#STACK,SP 


RHCS2,R2 
ATRE, $GDDAT 


#UPE , (R2) 


RHCS1,R2 
R2,REGADR 


(R2) , SBDDAT 
#°C<TRE>, SBDDAT 


$BDDAT , SGDDAT 
Ft 


;;D0 1 ITERATION 

THIS SAVES TEST NUMBER 

Ha FOR RH70 CONTROLLER 
FLAG = 1, SKIP THIS TEST 


‘JUMP TO NEXT TEST 
;CLEAR RH11 CONTROLLER 
SET STACK POINTER. 


;R2=RHCS2 ADDRESS. 
; SGDDAT=S/B. 


SET UNIBUS PARITY ERROR. 
;R2=RHCS1 ADDRESS. 


READ REGISTER 
SAVE TRANSFER ERROR. 


COMPARE RESULTS 
EXT TEST 
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% 

NED BIT NON EXISTANT DRIVE VERIFY THAT THIS SETS THE (TRE) BIT. 
027550 000004 : SCOPE 

MOV ;;D0 1 ITERATION 


MOV :THIS SAVES TEST NUMBER 
012777 MOV #CLR,@RHCS2 [CLEAR RH11 CONTROLLER 


027574 012706 STACK, SP SET STACK POINTER. 


027600 013702 014754 RHCS2,R2 ;R2=CS2 ADDRESS. 
027604 012737 040000 ATRE, $GDDAT :$GDDAT=S/B. 


027612 aE Las 015136 ttt GET ALL AVAILABLE DRIVES DATA 
006000 RO 
103420 : N36 
010112 : R1,(R2) SET NED. 


027626 013702 014756 RHCS1,R2 ;R2=RHCS1 ADDRESS. 
027632 010237 045534 R2,REGADR 


027636 011237 001126 (R2) , SBDDAT READ REGISTER. 
027642 042737 137777 001126 #*C<TRE>,SBDDAT ;SAVE TRE. 


027650 023737 001126 001124 SBDDAT,$GDDAT ; COMPARE . SULTS. 
thts 001406 E TST37 [NEXT TEST 


62 
027662 000404 BR TST37 NEXT TEST 


027664 : R1 
027666 R1,48. 
027672 001352 $36 
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027674 
027676 
027704 
027712 
027720 


4A, 
7730 


027740 
027744 


027752 
027756 


027774 


10=NOV=77 


012777 
012706 


013702 
010237 
005037 


012712 
012777 


011237 
042737 


023737 
001401 
104064 


014756 
045534 
001124 
002000 
000040 


001126 
175777 


001126 


MACY11 


a * Weta 
136 


dD 8 
sg te 11:16 PAGE 


96 


TRANSFER ERROR (TRE) NED 


% 
PORT SELECT FLOP VERIFY 


#1,$TIMES 
A#TTNO,@4TSTNM 
ACLR,@RHCS2 
MSTACK , SP 
RHCS1,R2 
R2,REGADR 
SGDDAT 

#PSEL, (R2) 
ACLR,@RHCS2 


(R2) , SBDDAT 


THAT WE CAN READ IT BACK. 


;:D0 1 ITERATION 

; THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 
;SET STACK POINTER. 
;R2=RHCS1 ADDRESS. 
;SGDDAT=S/B. 

;SET P SELECT. 

;D0 A CONTROLLER CLEAR. 


;READ BACK P SELECT BIT. 


#*C<PSEL>,$8DDAT; SAVE ONLY PORT SELECT. 


$BDDAT , SGDDAT 
TST40 
64 


; COMPARE RESULTS. 
NEXT TEST 





CZRJHCO,RPO4/5/6 DSKLS Bee 


C2RJHC P12 


027776 
030000 


10=NOV-77 1 


012777 
012706 
013702 


012712 
012777 


011237 
042737 


023737 


014756 
045534 
001124 
000011 
000040 


001126 
177770 


001126 


00121¢ 
017330 
164732 


164700 


001126 
001124 


30A(1052) 
137 


«REM x 
VERIFY ‘ ¥ CONTROLLER CLEAR WILL CLEAR THE COMMAND REGISTER. 


TST40: 


27=JUL-78 
CSRA PSEL CLEAR TEST 


#1,$TIMES 
ATTNO,@4TSTNM 
ACLR,@RHCS2 
MSTACK , SP 
RHCS1,R2 
R2,REGADR 
$GDDAT 
#11,(R2) 
ACLR,@RHCS2 


(R2) , SBDDAT 
#*C<7>, $BDDAT 


$3.DAT , SGDDAT 
15141 
65 


E 8 
11:16 PAGE 97 


3:D0 1 ITERATION 
;THIS SAVES TEST NUMBER 
;CLEAR RH11 CONTROLLER 


SET STACK POINTER. 


;R2=RHCS1 ADDRESS. 

; SGDDAT=S/B. 

ISSUE A DRIVE CLR AND GO. 
CONTROLLER CLEAR. 

READ COMMAND REGISTER. 


;SAVE ONLY THE COMMAND BITS. 


a RESULTS. 
NEXT TEST 





CZ 
CZ 
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030144 
030152 
030156 


030162 
030166 


030174 
030202 
030204 
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012777 
012706 
013702 


012737 
012712 
011237 


011237 
042737 


023737 


001176 


001126 
177770 


001126 


MACY11 —e 
T40 


177776 


001126 
001124 
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RB COMMAND REGISTER CLEAR TEST 


EM a 
THE COMMAND REGISTER IS SUPPOSED TO BE SELF CLEARING THAT IS WHEN THE 
RH11 IS SELECTED WHEATHER OR NOT WE ADDRESS IT DIRECTLY THE LOGIC 


SHOULD CLEAR THE 
THIS IS_TESTED BY LOADING A C 


COMMAND REGISTER. 


D INTO IT READING ANOTHER REGISTER 


OMMAN 
THAN RETURNING TO CHECK THE COMMAND REGISTER TO DETERMINE IF IT CLEARED. 


TST41: 
#1,STIMES 
#TTNO, a4 TSTNM 
CLR, @RHCS2 
#STACK,SP 
RHCS1,R2 
R2,REGADR 
$GDDAT 
#340,PS 
#11, (R2) 
(R2),$TMPO 


(R2) , $BDDAT 
#*C</7>,$BDDAT 


$BDDAT , $GDDAT 
TST42 
66 


;;D0 1 ITERATION 
STHIS SAVES TEST NUMBER 
:CLEAR RH11 CONTROLLER 


SET STACK POINTER. 

7;R2=RHCS1 ADDRESS. 

;SGDDAT=S/B. 

SET PRIORITY TO #7. 

; ISSUE A DRIVE CLR AND GO 

;DO A RESELECT OF THE REGISTER. 


;READ THE COMMAND REGISTER. 
SAVE ONLY THE COMMAND BITS. 


; COMPARE RESULTS. 
NEXT TEST 
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% 
TEST TO SEE IF SETTING (IE) AND (RDY) WILL CAUSE AN INTERRUPT. 


#1 ,$TIMES 3;D0 1 ITERATION 
AMTTNO,Q4TSTNM = ;THIS SAVES TEST NUMBER 
012777 164522 ACLR,@RHCS2 CLEAR RH11 CONTROLLER 


013702 RHCS1,R2 ;R2=RPCS1 ADDRESS. 
34 R2,REGADR 
$BDDAT ; SBDDAT=WAS. 
$GDDAT ; SGDDAT=S/B. 


017737 164466 001176 @RPVEC , STMPO SAVE RH11 INTERRUPT VECTOR. 
012777 030314 164456 #043, @RPVEC SET RH11 INTERRUPT VECTOR 043 


012706 001000 : MSTACK, SP SET STACK POINTER. 
005037 177776 PS 


052712 000300 MIE!RDY, (R2) i; THIS WILL CAUSE AN INTERRUPT. 
000240 NOP 
000240 


011237 001124 (R2) , $GDDAT 
104067 67 


013777 001176 164422 : $TMPO ,@RPVEC RESTORE RH11 INTERRUPT VECTOR. 
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000001 
000043 
012777 000040 
013702 014756 
045534 
001124 


017737 164356 
012777 030420 


012706 001000 
005037 177776 


052712 000100 
000240 
000240 
000411 


011237 001126 
042737 177677 


023737 001126 
001401 


104070 
013777 001176 


001212 
017330 
164406 


001176 
164346 


001126 
001124 


164272 


_—. 
T42 


-REM % 
THE (IE) BIT IS SET CAUSING AN INTERRUPT. AT THE COMPLETION OF THE INTERRUPT 


Bing iy -78 


8 
11: 16 PAGE 100 
READY AND IE INTERRUPT TEST 


WE CHECK TO SEE IF THE (IE) BIT HAS CLEARED. 


TST43: 


#1,$TIMES 
A#TTNO,@4TSTNM 
ACLR,@RHCS2 
RHCS1,R2 
R2,REGADR 
$GDDAT 


@RPVEC , STMPO 
#044 ,@RPVEC 


ASTACK, SP 
PS 


MIE, (R2) 


E44 


(R2) , SBDDAT 
#*C<IE>,$BDDAT 


$BDDAT , $GDDAT 
R44 


70 
$TMPO,@RPVEC 


;;D0 1 ITERATION 
STHIS SAVES TEST NUMBER 
SCLEAR RH11 CONTROLLER 


;R2=RPCS1 ADDRESS. 
; SGDDAT=S/B. 


SAVE RH11 INTERRUPT VECTOR. 
SET VECTOR TO 044. 


SET STACK POINTER. 
THIS WILL CAUSE AN INTERRUPT 


;NO INTERRUPT. 


;READ RHCS1. 
SAVE ONLY THE “‘IE’' BIT. 


; COMPARE RESULTS. 
70K! 


RESTORE RH11 INTERRUPT VECTOR. 


an RR RRR RRR RRR RR RRR RRA RRR RKRKR RRB RHR HHL LP 





1 8 
CZRJHCO,RP04/5/6 DSKLS gtr 30A(1052) 27-JUL=78 11:16 PAGE 101 
CZRJHC.P12 10-NOV=77 11:09 143 CSRB BOES ‘'IE*’ CLEAR AFTER AN INTERRUPT 


-REM & 
HERE WE VERIFY THAT WRITING INTO THE ‘‘AS'’ REGISTER OWILL NOT CAUSE 
AN ee 


TST44: SCOPE 
MOV #1,$TIMES 3;D0 1 ITERATION 
MOV MTTNO,QATSTNM =; THIS SAVES TEST NUMBER 
012777 000040 MOV ACLR,@RHCS2 ;CLEAR RH11 CONTROLLER 
012706 MOV MSTACK, SP SET STACK POINTER. 


013702 014754 MOV RHCS2,R2 R2=RH11 CS2 ADDRESS. 
012737 000007 MOV #US4 !US2!US1, spbAT; $GDDAT=S/B. 


013705 014756 RHCS1,R5 ;ADDRESS OF A DEVICE REGISTER. 
012712 000007 L45: MUS4!US2!US1,(R2);LOAD A NON EXISTANT DEVICE. 
013702 014774 RHAS ,R2 ;R2="'AS'* ADDRESS. 

012712 000377 #377, (R2) zATTEMPT TO LOAD ‘‘AS'’. 

005012 (R2) CLEAR ‘‘AS"’. 


013702 014754 RHCS2,R2 ;R2=RH11 CS2 ADDRESS. 
010237 045534 R2,REGADR 


011237 001126 (R2) , SBDDAT ; $SBDDAT=WAS. 
042737 167770 001126 #*C<NED!US4!US2!US1>, SBDDAT: SAVE NED AND DEVICE SELECTED. 


023737 001126 001124 SBDDAT,SGDDAT  ;COMPARE RESULTS. 
030566 001401 TST45 NEXT TEST 
030570 104071 71 


4 
4 
4 
é 
d 
4 
r 
d 
d 
4 
d 
4 
Fi 
d 
d 
d 
d 
d 
r 
r 
F 
d 
d 
d 
r 
d 
d 
4 
d 
d 
F 
4 
d 
rl 
d 
4 
4 
d 
4 
| 
| 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
‘4 
4 
‘4 
4 
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.SBTTL EXTENDED MEMORY, DRIVE TIMING & SECTOR SELECT TESTS 


o 
 ™~N 
z 


TST45: 
#STACK,SP ;RESET STACK 
017330 MTTNO,@4TSTNM = =;THIS SAVES TEST NUMBER 
PC, a#CLDISk INIT DRIVE 
164156 #DMD , ARHMR :SET DIAGNOSTIC MODE 
RO, @4MAKECYL :SUBROUTINE TO GIVE A SEEK 
;THIS SHUOLD CHANGE RHCC TO 0 


001000 AMSTACK, SP RESET STACK 

000046 017330 ATTNO,@#TSTNM = ;THIS SAVES TEST NUMBER 

017334 @4RH70 ; TEST FOR RH70 CONTROLLER 
30$ 31F FLAG = 1, SKIP THIS TEST 

031160 TST47 ; JUMP TO NEXT TEST 


045706 RO, @#CLAREA ;CLEAR SIMULATED DISK 
. DISK ; FROM 
por 


:T0 
;DATA 
; THESE ARE SETUP FOR DISKLESS USE ONLY 


010000 052654 #FMT22 ,@ACYL;CYLINDER 0 
716 BITS PER WORD 
052656 @4SECOTR SECTOR 0 TRACK 0 
@FKEY1 Y1 0 


Py 


@AKEY2 KEY2 0 
052722 #256. , @ANOWORD NO OF ay WORDS 
052664 #1, aAX WRITE DAT 

R5,a4CRC :GO TO CALCULATE CRC 


; THESE ARE REGULAR SETUPS 


PC ,a#CLDISK ; SETUP ge REGISTERS 
164002 #-256. ,ARHWC 7256 DATA WORDS 

163776 @4STKS , @RHBA STARTING ADDRESS OF a Be BUFFER 
015140 the ald ; TEMPORARY F DATA 


@RHDS 3$ 
163772 AFMT 22, @RHOF [16 BITS PER WORD FORMAT 
@RHCA SCYLINDER 0 
PC ,@4#CHECKT CHECK DVA, a ad DPR,DRY = 1 AND OTHERS DON'T 
,CPHALT [CANNOT CONTINUE TESTING IF ANY OF THE 
000000 SSTOP THE TEST 
031012 013746 015170 @AWRIDAT,-(SP) :WRITE DATA=60 


—eeeeeeeee Re eee eR RRR RRR KR RRR RRR KR RRR KRKRKRHRKRKRARHRHRRHLR RRL HL EBL 
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031016 acto 001400 #A16!A17,(SP)  ;SET HIGH ORDER UNIBUS BITS 
(SP) +,0R1 zFILL RHCS1 
000010 163722 #BAI ,ARHCS2 SET BUS ADDRESS INHIBIT 
015124 a4#ERFLGS ;CLEAR ERROR FLAG 
052514 PC ,@#COMHD WRITE DATA 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
é 
4 
4 
4 
4 
é 
é 
4 
d 
d 
d 
d 
4 
d 
d 
d 
d 
d 
d 
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71F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
[FROM THE ‘'COMHD’' ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 
;HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 
AND SYNCS WERE CORRECTLY DETECTED. 


;DATA IS TO BE CHECKED. 


045470 PC ,@4#PUTREG ;SAVE REGISTERS 
015124 a#ERFLGS ; HAVE ANY RANCH OUT IP YES 


TST IF YES 
015140 @#TMPILL ,RO [GOOD DAT 
054572 #DISK,R1 DATA WRITTEN INTO 'DISK’’ 
000400 #256. ,R2 ; COUNTER 
000401 052774 : #257.,@MERWORD ;FOR ERROR WORD 
RO, (R1)+ COMPARE GOOD DATA WITH DATA ON DISK 
3$ BRANCH IF GOOD 
015140 001124 tM) aod @ASGDDAT; GOOD DATA 
001126 $BDDAT BAD DATA 
052774 ERROR WORD NO 
015124 ZANY ERRORS ALREADY THERE? 
2s [BRANCH IF YES 
031126 ERROR ON WRITE DATA COMMAND 
;SEE NEXT ERROR COMMENTS 
031130 BR 6 BRANCH TO AVOID PRINTING NEXT ERROR 
031132 : ;WORD NO GIVES WORD IN ERROR 
TERROR OCCURED WHILE WRITING 
WITH A16 A17 OF RHCS1 SET 
: ;UNDO -(R1) FOR BAD DATA 
147776 @SWR ,~ (SP) :GET SWITCH SETTING 
177177 #177177, (SP) ;KEEP ONLY SWITCH 7 AND 8 
000200 #SWO7, (SP) + :1S 7 SET AND A, RESET 
TST47 BRANCH OUT IF as 
: R TIF NOT COUNT 256 WOR 
031156 1$ BRANCH IF 256 NOT “DONE 


HHHLHLHHHLHLHLHHLS 


HAHAHAHAHA HRAEHLH HHP HLH LHL HLL LLY 
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000004 TST47: SCOPE 
012706 001000 MOV #STACK , SP ;RESET STACK 
012737 000047 017330 MOV MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
;*THESE ARE TO SETUP FOR DISKLESS USE 
012737 010000 052654 MFMT22 ,@ACYL 316 BITS PER WORD 
;CYLINDER 0 
052656 @4SECOTR 
@AKEY1 


OAKEY2 ; 0 
ax :THIS IS A READ COMMAND 
R5,a@4CRC [GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


031232 0 PC ,a@#CLDISK ;SETUP GENERAL REGISTERS 
031236 163504 #-260. , @RHWC 3256 DATA WORDS, 4 HEADER WORDS 
031244 163500 PREINTO. @RHBA =; STARTING ADDRESS OF BUFFER 
031252 5077 04 @RHDST ote =0 


SECTOR = 
031256 012777 163502 #FMT22'ECI,@RHOF ;16 BITS PER WORD 
sECC CORRECTION INHIBITED 
005077 @RHCA CYLINDER = 0 
004737 


PC ,a@A#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
104401 -CPHALT > CANNOT CONTINUE TESTING IF ANY OF THE 
000000 :STOP THE TEST 
013711 015176 @AREFOR,@R1 ;READ HEADER AND DATA = 72 


7*READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE' 


046462 RO, @#SAVER READ IN SEQUENCE 
RHWC FROM HARDWARE REGISTER 
7 INTO CORE AT LOCATION 
031316 000023 NUMBER OF REGISTERS TO READ 


7*NOW ‘GO’ WILL BE GIVEN, EVERYTHING WILL BE TREATED 
T*NORMALLY FOR THE HEADER. BUT WHEN IT IS TIME TO READ 
i*DATA, ONLY SECTOR CLOCKS WILL BE GIVEN. NO DIAGNOSTIC DATA 
>*CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH 
:*WITHOUT PUTTING ‘READ'' DOWN HENCE 'DTE' WILL COME UP. 


031320 012737 177777 MOV #-1 ,AATESDTE SET DTE TEST 
031326 012737 177777 MOV #-1 ,@#ERFLGS i THIS WILL BRING THE READ HEADER 
AND DATA PROCESS OUT AFTER THE 
THEADER HAS BEEN CORRECTLY READ 


031334 004737 052514 JSR PC ,a@4#COMHD ISSUE *GO', SEARCH FOR THE SECTOR 
AND READ THE HEADER 


031340 017737 163412 001176 SETCK1: MOV @RHCS1,a#$TMPO ;READ CS1 TO CHECK FOR ANY READ ERRORS 


RRRARARRRARRADDRARAKRAKRLDHHRADRRARDHRDHLDHLHLHLHLELHLHLELHLLLHLHL HSL LLL LL LLL L 
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CZRJHC .P12 10-NOV-77 1 DRIVE TIMING ERROR 


031346 032737 100000 001176 #SC ,a#STMPO ; TEST FOR ‘SPECIAL ge ad = *SC° 
031354 8$ :CONTINUE WITH TEST IF ‘SC’ = 0 (NO paar 
031356 004737 045470 PC ,@#PUTREG ;READ & SAVE ALL REGISTERS AGAIN IF AN 
[UNDEFINED DATA TRANSFER ERROR OCCURRED 
031362 40 ;READ/WRITE HEADER & DATA ERROR DURING 
031364 031652 TST50O é *DTE’ 


TEST = ABORT THE TEST 
031370 : ;NOW THE HEADER HAS REEN READ Pes 
;*NOW 560 SECTOR CLOCKS WILL BE G 
;*GAP 11 BYTES, SYNC 1 BYTE, DATA, a3, ECC 4 BYTES 
:*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2 


;*THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS 
7*24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS, 
;*AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS. 


;*THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS 
;*WHICH EQUALS 3 BYTES OF DATA 


#24. ,R1 ;LOAD COUNTER 
@4RHMR , RO 7GET RHMR ADDRESS 
ADMD , ARO ;SET DIAGNOSTIC MODE 
WMSTCK'MCLK,@RO ;SET SECTOR CLOCK AND DATA CLOCK 
#MSTCK!MCLK,@RO ;CLEAR SECTOR CLOCK AND DATA CLOCK 
[LOAD COUNTER FOR DIAGNOSTIC CLOCKS 
ZSET CLOCK 
:CLEAR CLOCK 
:COUNT TO 7 
;BRANCH IF 7 NOT DONE 
;COUNT TO 
;BRANCH IF 24 NOT DONE 


i*THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 


031370 012701 


PHLHSHHLHL HHH HL HHH HL HL HLL 


031540 


#536. .R1 
#MSTCK ,@RO 
+ hata 


5$ 


;LOAD SECTOR CLOCK COUNTER 
7SET SECTOR CLOCK 
;CLEAR SECTOR CLOCK 


; COUNT 
;BRANCH IF 536 NOT DONE 


;*NOW *DTE* SHOULD BE SET 
;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


#-256. ,a#wC 


SAVED RHWC 


PREINTOS<G, *2>, aie | ; SAVED RHBA 


#SC!TRE ,@#CS1 
#OTE ,aWERI 


ED RHCS1 
;SAVED RHER1 
RHMR 


#401, aaMR > SAVED 
MATA! can 2008 ;SAVED RHDS1 


#100, a4L 


#1 ,a4DST 
@4ATTENT ,@#AS 


013737 015050 


SAVED RHLA 
SAVED RHDST 
SAVED RHAS 





CZRJHCO,RPO4/5/6 DSKLS ais MACY11 30A(1052) 
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031546 


031610 
031612 


031612 


031630 
031632 


031650 
031652 


sp td 
0 


031652 
013705 
06050 

016537 
104001 


000207 


046462 


015051 015245 


046664 


052774 
014746 045534 
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DRIVE TIMING ERROR 


s*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS 
[*CAN BE DONE .USE THE "WRFROM’ SAVE BUFFER THIS TIME) 


JSR RO, @#SAVER hon IN SEQUENCE 

RHWC HARDWARE REGISTER 

WRF ROM ‘INTO CORE BUFFER 

19. NUMBER OF REGISTERS TO READ 


;*FOR RHAS UPPER BYTE 
MOVB @FAS+1 ,Q@AWRFROM*+25 ;UPPER RHAS 


:*COMPARE THE HEADER READ 

RO, @# COMPAR : COMPARE 
:GOOD BUFFER 
s TEST BUFFER 
SRETURN FOR ERROR 
+ SAME 
:RETURN FOR GOOD COMPARISON 
SHEADER READ IN DURING THIS TEST IS 
:IN ERROR 
RETURN 


;GOOD COMPARISON, CONTINUE 


;*COMPARE REGISTERS BEFORE COMMAND WITH REGISTERS AFTER COMMAND 


RO, @#COMPAR ; COMPARE 
: INITIAL SNAPSHOT Mag (CHANGED ) 
:TEST SNAPSHOT BUFFER 
[NUMBER OF REGISTERS 
;RETURN FOR ERROR 


3; SAME 
;RETURN FOR GOOD COMPARISON 
<9 yates R5 sGETTING READY TO INDEX 
R ;DOUBLE ERROR WORD 
Rc =2(R5) ,@#REGADR ;FAILING REGISTER 
1 ; IMPROPER REGISTER 
; CHANGE AFTER FORCING 
:"DTE' ERROR 
PC RETURN 


;GOOD - REGISTERS OK, GO ON TO NEXT TEST 


SEQ 0105 





ana 
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031652 000004 

031654 012706 001000 

031660 012737 000050 

031666 012737 010000 

031674 005037 052656 
005037 052660 
005037 052662 
012737 177777 
004537 047176 
052654 

031724 054554 


031726 004737 
012777 
012777 
031746 005077 163010 


031752 012777 010000 
163004 
046024 
005123 


000000 
031776 013711 015170 


032002 
032006 
032010 
032012 


046462 


032014 012737 177777 
032022 012737 177777 


032030 004737 052514 


032034 017737 162716 
032042 032737 100000 
032050 001405 


MACY11 30A(1052) 
147 


017330 


052654 


163010 
163004 


163006 


TST5O: 


SETCK2: 


. 
27-JUL-78 11:16 PAGE 108 
DRIVE TIMING ERROR 


SCOPE 
MOV ASTACK , SP 
#TTNO, @ATSTNM 


RESET STACK 
;THIS SAVES. TEST NUMBER 


MOV 
;*THESE ARE TO SETUP FOR DISKLESS USE 
316 BITS PER WORD 


#FMT22,QACYL 
@4SECOTR 


sKEY2 = 0 
;THIS IS FOR WRITE DATA COMMAND 


RS, aACRC 7GO TO CALCULATE CRC 


ARE REGULAR SETUPS & CHECKS 


PC ,@#CLDISK SETUP yee oo 
#-256. , @RHWC 1256 DATA WORDS 
AMWRFROM,@RHBA ;STARTING ADDRESS OF BUFFER 
@RHDST ; TRACK = 0 
SECTOR = 0 
#FMT 22, @RHOF [16 BITS PER WORD 
sECC CORRECTION INHIBITED 
@RHCA CYLINDER = 0 
PC ,@#CHECKT ; CHECK DVA, RDY,DPR,DRY = 1 AND OTHERS DON'T 
,CPHALT :CANNOT CONTINUE TESTING IF ANY OF THE 


:STOP THE TEST 
@AWRIDAT ,aR1 [WRITE DATA = 60 


:*READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE* 


JSR RO, @4SAVER ere: REGISTERS IN SEQUENCE 
RHWC FROM HARDWARE REGISTER 

WC SINTO CORE BUFFER LOCATION 
19. ;NUMBER OF REGISTERS TO READ 


;*NOW ‘GO’ WILL BE GIVEN, EVERYTHING WILL BE TREATED 
T*NORMALLY FOR THE HEADER. WHEN IT IS TIME TO WRITE 

;*DATA, ONLY SECTOR CLOCKS WILL BE hye NO DIAGNOSTIC DATA 
:*CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH 
:*WITHOUT PUTTING READ DOWN, HENCE "DTE' WILL COME UP. 


MOV #~-1 ,A@ATESDTE SET DTE TEST 

MOV #-1 ,AAERFLGS THIS WILL BRING THE READ HEADER 
zAND DATA PROCESS OUT AFTER THE 
HEADER HAS BEEN CORRECTLY READ 


ISSUE 'GO', SEARCH FOR SECTOR, 
;READ HEADER AND DATA. 


sREAD CS1 TO CHECK FOR READ ERRORS 
;TEST FOR ‘'SPECIAL CONDITION'’ = ‘SC’ 
:CONTINUE TESTING IF NO ERROR 


JSR PC ,a@A#COMHD 


@RHCS1 , a#STMPO 
BIT ot AS 


SEQ 0106 








fated 


CZRJHCO ,RPO4/5/6 foe eins 


CZRJHC.P12 
032052 
032056 
032060 
032064 


032152 
032154 


032162 
032166 


032170 
032176 


032204 
032212 
032214 


10=NOV=7 


004737 045470 


104040 


000137 032376 


012701 


017737 


005737 
001412 


012737 


012737 


162630 


017334 


177416 
015254 
000300 


177511 


MACY11 30A(1052) 
T50 


015064 


015024 7$: 
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JSR PC ,@#PUTREG rine & SAVE REGISTERS AGAIN IF UNDE- 
FINED ne HAS OCCURRED 
ERROR 40 STHERE WAS A READ/WRITE HEADER ERROR 
:DURING 'DTE' TEST SETUP 
JMP TST51 ; ABORT THE TEST 


;NOW THE HEADER HAS BEEN READ, 

#560 SECTOR CLOCKS WILL BE GIVEN 

;*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC 4 BYTES 
GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2 


;*THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS 
7*24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS 
7*AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS 


i*THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS 


#24. ,R1 ;LOAD SECTOR CLOCK COUNTER 
@4RHMR ,RO GET RHMR ADDRESS 

#DMD , @RO SET DIAGNOSTIC MODE 

MMSTCK!MCLK,@RO ;SET SECTOR CLOCK AND DATA CLOCK 
MMSTCK!MCLK,@RO ;CLEAR SECTOR CLOCK AND DATA CLOCK 

#7 ,R2 ;LOAD COUNTER FOR DIAGNOSTIC DATA CLOCKS 
AMCLK,@RO SET CLOCK (DATA) 

eas 3 Sys CLOCK (DATA) 


: COUN 
BRANCH IF 7 NOT DONE 
‘BRANCH IF 24 NOT DONE 
:*THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 
#536. ,R1 SLOAD SECTOR CLOCK COUNTER 
#MSTCK,a@RO ‘SET SECTOR CLOCK 
#MSTCK.aRO “CLEAR SECTOR CLOCK 


R1 + COUNT 
5$ ;BRANCH IF 536 NOT DONE 


;*ECC PATTERN REGISTER IS NOT CHECKED 
MOV @RHE C2, a#EC2 sRHEC2 IS NOT CHECKED 


*NOW "DTE* SHOULD BE SET, CHANGE SAVED REGISTERS TO EXPECTED VALUES 


a4RH70 ; CHECK FOR RH70 CONTROLLER 
7$ ;SKIP RH70 CODE AND DO RH11 IF NOT 


#-242. ,a#WC ; SAVED RHWC 
MWRFROM+<14.%2>,@4BA_ ;SAVED RHBA 
#IR!OR,@ACS2 SAVED RHCS2 

8$ SKIP NEXT RH11 CODE 


4-183. ,a#wC SAVED RHWC 
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032222 012737 015442 015026 AWRFROM+<73.*2>,@4BA ; SAVED RHBA 
032230 042737 000100 015030 #IR,@ACS2 ;SAVED RHCS2 
236 052737 015030 #OR ,@ACS2 ;SAVED RHCS2 


032244 052737 Oi 2bar 3 MSC!TRE,@ACS1 ;SAVED RHCS1 
#DTE ,aWERI ;SAVED RHER1 
#DENVL!DMD,@4MR :SAVED RHMR 
HATA!ERR,@#DS1 ;SAVED RHDS1 
#100, aaLA SAVED RHLA 
#1 ,aADST 7 SAVED RHDST 

032310 013737 015050 @WATTENT,@#AS SAVED RHAS 


;*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS 
CAN BE DONE (USING ‘WRFROM' BUFFER THIS TIME) 


032316 004037 JSR RO, @#SAVER READ IN SEQUENCE 
014750 RHWC FROM HARDWARE REGISTER 
016264 REINTO SINTO CORE BUFFER LOCATION 
032326 000023 19. ;NUMBER OF REGISTERS TO READ 


;*FOR RHAS UPPER BYTE 
032330 113737 015051 016311 MOVB @AAS+1 ,AMREINTO+25 ;UPPER RHAS 


3 *COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND WITH 
3 *SNAPSHOT AFTER COMMAND 


RO, @4# COMPAR ; COMPARE 
CHANGED INITIAL SNAPSHOT BUFFER 
SSNAPSHORT BUFFER AFTER COMMAND 
[NUMBER OF REGISTERS TO COMPARE 
ZRETURN FOR ERROR 


3 SAME 
032354 032376 ;RETURN FOR GOOD COMPARISON 
032356 013705 052774 23: SeeR ne. RS ;GETTING READY TO INDEX 
032362 060505 R : DOUBLE ERROR WORD 
032364 016537 014746 045534 MOV en -2(R5) ,@AREGADR sFAILING REGISTER 
032372 104001 1 ; IMPROPER REGISTER 
+ CHANGE AFTER FORCING 
;"DTE* ERROR 
032374 000207 PC ; RETURN 
032376 ; :GOOD, REGISTERS OK - GO ON TO NEXT TEST 
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032376 


032450 


032452 


032472 
032476 


032522 


032526 


10=NOV=77 1 


045770 
177374 
015220 
162264 
014000 


162260 


015172 


046462 


MACY11 30A(1052) 
T50 


017330 


056012 


056052 


162264 
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DRIVE TIMING ERROR 


SCOPE 
MOV STACK, SP RESET STACK 
MOV MTTNO,@A4TSTNM = =;THIS SAVES TEST NUMBER 


;*THESE ARE TO SET UP FOR DISKLESS USE ONLY 


#FMT22 ,@AWCYL ocho BITWORDS AND 
ape Sy EKEVI=O SECTOR=0 


ox EY2=0 
a DATAWORDS 
:GO TO CALCULATE CRC 


ARE REGULAR SETUPS & CHECKS 


PC ,a#CLDISK ;SETUP GENERAL REGISTERS 
#-260.,aRHWC  :256 DATA WORDS & 4 HEADER WORDS 
#WRFROM,@RHBA = STARTING ADDRESS OF BUFFER 
@RHDST STRACK = 0 
SSECTOR = 0 
#FMT22'EC1,@RHOF ;16 BITS PER WORD 
zECC CORRECTION INHIBITED 
@RHCA “CYLINDER = 0 
PC, a#CHECKT “CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
CPHALT SCANNOT CONTINUE TESTING IF ANY OF THE 
‘STOP THE TEST 
Q#WRIFOR,@R1 :WRITE HEADER AND DATA = 62 


;*READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE" 


JSR RO, @#SAVER READ IN SEQUENCE 

RHWC FROM HARDWARE REGISTER 

wC INTO CORE BUFFER LOCATION 
;NUMBER OF REGISTERS TO READ 





C2 
C2 


CZRJHCO,RPO4/5/6 DSKLS ms 


CZRJHC P12 


032540 
032546 


032554 


032610 


032610 


032652 


032654 
032662 


032670 
032676 


10-NOV=-77 


012737 
012737 


004737 


017737 


012701 


012737 
012737 
000406 
012737 
012737 


052737 
042737 


177777 
177777 


055636 
162172 
100000 
045470 


033036 


001141 
000010 
000010 


017334 


177404 
015240 


177477 
015426 


140000 
000100 


MACY11 30A(1052) 
151 


001176 
001176 


SETCK3: 
B 





G 9 
27-JUL-78 11:16 PAGE 112 SEQ 0110 74 
DRIVE TIMING ERROR C2 


; *NOW *GO' WILL BE GIVEN. EVERYTHING WILL BE TREATED 
; *NORMALLY HLL HEADER IS TO BE GIVEN, THEN ONLY 
[*SECTOR CLOCKS WILL BE GIVEN. NO DIAGNOSTIC DATA 
:*CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH 
:*WITHOUT PUTTING "READ'’ DOWN, HENCE "DTE' WILL COME UP. 


MOV #1 ,@ATESDTE ;SET DTE TEST 

MOV #-1 ,AAERFLGS ;THIS WILL BRING THE READ HEADER 
;AND DATA PROCESS OUT AFTER THE 
;HEADER HAS BEEN CORRECTLY READ 


PC ,@4#COMWHD ISSUE ‘GO", SEARCH + SECTOR, 
[WRITE HEADER AND DATA 


@RHCS1,@#STMPO =;READ CS1 TO CHECK FOR ERRORS DURING WRITE 

ASC ,AASTMPO ;TEST FOR ‘'SPECIAL CONDITION'’ = ‘SC’ 

4$ [CONTINUE TEST IF NO ERROR ('SC' = 0) 

PC ,@4PUTREG ;READ & SAVE REGISTERS AGAIN IF ERROR 

40 ; THERE WAS A READ/WRITE HEADER ERROR 
[DURING 'DTE' TEST SETUP 

TST52 3 ABORT THE TEST AT THAT POINT 


NOW SECTOR HAS BEEN FOUND OK 


3;*609 SECTOR CLOCKS WILL BE GIVEN, 

:*39 BYTES FOR SECTOR GAP, 

:*1 BYTE FOR HEADER SYNC, 

:*8 BYTES FOR HEADER, 

:*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC 4 BYTES 
[*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 3 


s*THIS GIVES 609 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 
#609. ,R1 ;LOAD SECTOR CLOCK COUNTER 
#MSTCK,@RO *SET SECTOR CLOCK 
AMSTCK,@RO ;CLEAR SECTOR CLOCK 
R1 > COUNT 
5$ ;BRANCH IF 536 NOT DONE 


7*NOW 'DTE' SHOULD BE SET, CHANGE SAVED REGISTERS 
;TO EXPECTED VALUES 


TST @4RH70 CHECK FOR RH70 CONTROLLER 
BEQ 6$ SKIP RH70 CODE AND DO RH11 IF NOT 


MOV #-252., SAVED RHWC 
MOV Wane Ronee. *2>,@4BA ;SAVED RHBA 
BR 7$ :SKIP NEXT RH11 CODE 


MOV #-193. ,a#wC ;SAVED RHWC 
MOV M#WRFROM+<67.*2>,@4BA ;SAVED RHBA 


BIS ASC!TRE,@A#CS1 ;SAVED RHCS1 
BIC AIR, aACS2 SAVED RHCS2 


Soe ge RPO4/5/6 DSKLS mm MACY11 ——— 


CZRJHC .P 


12 


032750 
032756 
032770 


032776 
033002 


033032 


033034 
033036 


10-NOV=77 1 


052737 


013737 


004037 
014750 
016264 
000023 


113737 


033036 
013705 
060505 


000207 


1:09 


015030 
0150 


015050 


015051 016311 


052774 
014746 045534 
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DRIVE TIMING ERROR 


#OR ,aACS2 SAVED RHCS2 
ADTE ,avER1 SAVED RHER1 
#401, @AMR ;SAVED RHMR 
HATA'ERR,@#DS1 SAVED RHDS1 
#100, a4LA ;SAVED RHLA 
#1 ,aADST SAVED RHDST 
@AATTENT,@#AS ;SAVED RHAS 


;*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN BE DONE 


JSR RO, @#SAVER ohn IN SEQUENCE 

RHWC FROM HARDWARE REGISTER 
REINTO ZINTO CORE BUFFER LOCATION 
19. NUMBER OF REGISTERS TO READ 


;*FOR RHAS UPPER BYTE 
MOVB @AAS+1 ,AAREINTO+25 ; UPPER RHAS 


;*COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND 
;*WITH REGISTER SNAPSHOT AFTER COMMAND 


RO, @4COMPAR ; COMPARE 

; CHANGED aS tta’c SNAPSHOT 

; SNAPSHOT AFTER COMMAND 
[NUMBER OF REGISTERS TO COMPARE 
[RETURN FOR ERROR 


3 SAME 
RETURN FOR GOOD COMPARISON 
@4ERWORD ,R5 GETTING READY TO INDEX 
ROR WORD 


R5,R ;DOUBLE ER 

RHWC=2(R5),@AREGADR ;FAILING REGISTER 

1 ; IMPROPER REGISTER 
ZCHANGE AFTER FORCING 

;"DTE* ERROR 

RETURN 


;GOOD, REGISTERS COMPARE OK 
:GO ON TO THE NEXT TEST 


SEQ 0111 
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033154 


033156 


033162 


033176 


033202 
0332 


0332 
033232 


10-NOV~77 
000004 
012706 
012737 
004737 


012737 


001375 


012700 


012720 
012720 


012720 
012720 


012705 


033170 
000025 


000025 
033414 


054474 
000460 


015220 
010000 


000000 
000025 
000025 


000023 


052756 
010000 
000000 


MACY11 30A(1952) 
T52 


017330 


015146 


033174 


033200 


033346 
033354 


TST52: 


7) 
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SECTOR SELECTION 


AMSTACK , SP RESET STACK 
ATTNO,QATSTNM =; THIS SAVES TEST NUMBER 
PC ,@4CLDISK Tie on ie REGISTERS & CLEAR 


Fi 
#22. ,QATAGDTE 322 $ ORS 
ras. TEST REPEATS 
SITSELF 22 TIMES 


7*THE FOLLOWING INITIALIZES FOR SECTOR 0 


HEADER (SECTOR) 
HEADER (KEY1) 
HEADER (KEY2) 
DATA (SECTOR) 


DATA 
SECTOR (SIMULATED DISK) 
7KEY1 (SIMULATED DISK) 
sKEY2 (SIMULATED DISK) 
@4SS15+2 SECTOR (RHDST) 
SIMULATED DISK AREA 
ASECGAP ,RO POINTER 
#304. ,R1 ; COUNTER 
(RO) + ;CLEAR SIMULATED DISK AREA 
R1 OUNT 


2$ . 


WRITE FROM BUFFER 
AWRF ROM ,RO 


R 
MFMT22, (RO) + FORMAT 16 BITS PER WORD 
CYLINDER 0 
#0, (RO)+ ;SECTOR TO VARY 
#21.,(RO)+ SKEY1 TO VARY 
#21. ,(RO)+ SKEY2 TO VARY 


:*DATA IN WRITE FROM BUFFER ALTHOUGH THIS IS DATA AND NOT 


s*HEADER, THE SECTOR WITH SYNC BYTES WILL BE GIVEN AS DATA. 
:*DATA IS - 19 WORDS OF ZEROS - SYNC WORDS, 4 HEADER WORDS 
**1 CRC WORD, 5 WORDS OF ZEROS, 1 SYNC WORD, 100 ZEROS 
:*(DATA), 1 SYNC WORD, 70 SECTOR NUMBER TO VARY 

#19. ,R5 

(RO) + 

R5 

6$ 

@ARSYNC, (RO) + 

HFMT22, (RO)+ LINDER 0 

0,(RO)+ ;SECTOR TO VARY 
(RO) + 








CZ 
CZ 
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CZRJHC.P12 10-NOV-77 11:09 T52 SECTOR SELECTION 


033234 004537 047176 JSR R5 ,aA#CRC CALCULATE CRC FOR ABOVE 4 WORDS 
033240 015270 WRF ROM+50 74 WORDS START FROM HERE 
033242 015300 WRF ROM+60 PUT CRC HERE 


033244 005720 (RO) + ; INCREMENT RO 


033246 012705 #5.,R5 
: (RO) + 35 WORDS OF ZEROS 
R5 ; COUNT 
8$ ;BRANCH IF 5 NOT DONE 


013720 052756 @ARSYNC,(RO)+  ;=SYNC = 14400 
012705 000144 #100. ,R5 
5020 : + wa 100 WORDS OF ZEROS 

033274 9$ 
033276 052756 @ARSYNC,(RO)* SYNC = 14400 
033302 000106 #70. ,R5 
033306 #0, (RO) + SECTOR TO VARY 
033312 R5 
033314 $S10 


REST OF 256 WORDS THAT IS 54 WORDS OF ZEROS 


033316 #54. ,R5 
(RO) + 
R5 

033326 11$ 


ARE TO BE SET UP FOR DISKLESS USE ONLY 


033330 012737 056012 #FMT22 ,@AWCYL es te ss WORDS 
033336 012737 000000 056014 : #0, a4WSECTR ;SECTOR TO VARY 
033344 : ‘ zKEY1 TO VARY 

033352 000025 : * 7KEY2 TO VARY 

033360 :202 DATA WORDS 
033366 oS ed CRC 

033372 FIRST WORD 

033374 056022 “PUT HERE 


ARE REGULAR SETUPS 


033376 012777 #-256. , @RHWC 3202 DATA, 4 HEADER 
033404 MARE ROM @RHBA =; FILL BUS ADDRESS 
000000 : #0,a@RHDST SECTOR TO VARY 
013777 aHURIFOR. @RHCS1 ;GET READY TO DO 
[WRITE HEADER AND DAT 
WITH 62 FUNCTION CODE IN RHCS1 
012777 AFMT 22, @RHOF 316 BITS PER WORD FORMAT 
005077 161330 @RHCA SCYLINDER = 0 


005037 015124 a4ERFLGS CLEAR ERROR FLAG 
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CZRJHC.P12 10-NOV=77 11:09 T52 SECTOR SELECTION 


004737 046024 JSR PC ,@#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
104401 005123 TYPE ~CPHAL > :CANNOT CONTINUE TESTING IF ANY OF THE 
000000 HALT :STOP THE TEST 


004737 055636 JSR PC ,@#COMWHD ete "GO", COUNT SECTOR CLOCKS, 
WRITE HEADER AND DATA 

005737 015124 TST @FERFLGS SHAVE ANY ERRORS OCCURRED ? 

001051 BNE TST53 : EXIT IF YES 


004737 046214 JSR PC ,@#CHECKE CHECK THAT DVA,RDY,DPR,DRY = 1 
104401 005123 TYPE ~CPHALT > CANNOT CONTINUE IF THEY DON'T 
000000 HALT :STOP THE TEST AND RESTART PROGRAM 


: *NOW a *DISK'' BUFFER WITH *“REINTO'’ BUFFER 
046664 OMPAR ; CHECK 

8. ;GOOD BUFFER 
TEST BUFFER 
[NUMBER OF WORDS 
RETURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 


*THE FOLLOWING INCREMENTS ARE TO CHANGE THE ABOVE SET UP 
3*TO WRITE ON THE NEXT SECTOR 


033170 : @4SS3+2 HEADER (SECTOR) 
HEADER (KEY1) 
HEADER (KEY2) 
ATA (SECTOR) 


SECTOR (SIMULATED DISK) 

SKEY1 (SIMULATED DISK) 
033566 SKEY2 (SIMULATED DISK) 
033572 @4SS15+2 zSECTOR (RHDST) 


033576 015146 : @4TAGDTE COUNT DOWN FOR 22 SECTORS 

033602 001001 1$ ;BRANCH IF 22 SECTORS NOT DONE 
BR TST53 zALL_ DONE - GO 10 NEXT TEST 

033140 ; a#ss1 :GO BACK TO NEXT SECTOR 
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CZRJHC.P12 10-NOV=-77 11:09 DATA TRANSFER TESTS USING ECC 


-SBTTL DATA TRANSFER TESTS USING ECC 


000004 : 
012706 001000 MOV MSTACK, SP RESET STACK 


012737 000053 017330 ATTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 
012700 054474 POINTER 
000402 ; COUNTER 
177777 3 = , (RO) + sFILL SIMULATER DISK WITH ONES 


1$ 
045770 PC ,@#CLDISK ;THIS IS USED TO SET GENERAL REGISTERS 
ARE FOR ECC TEST ONLY 


177777 )=—(015142 #~-1 ,AATSECC ;THIS IS AN ECC TEST 

a4POSITI CLEAR ERROR POSITION COUNTER 
050474 @ANCODE ,AANCOUNT ; TEMPORARY N-CODE COUNTER 
050506 @AHARDER, @#HAD TMP : 

@4GECC1 

@AGECC2 iE 

@4DATENV CLEAR DATA ENVELOPE CLOCK COUNT 

033714 0505 a4ZCODE ;CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO BE SETUP FOR DISKLESS USE ONLY 


033720 012737 056012 AFMT 22 ,QAWCYL eae a pl WORDS AND 
033726 012737 000001 056014 #1 ,QAWSECTR ;TRACK=0, SECTOR=1 
0337 005037 OAWKEY 1 sKEY1=0 

005037 @AWKEY2 KEY2=0 

012737 000400 056052 #256. , @A#FNWORD i556 DATA WORDS 

sath eh R5,a#CRC :GO TO CALCULATE CRC 


056022 


s 
€ 
‘ 
§ 
‘ 
4 
g 
§ 
c 
é 
: 
4 
c 
‘ 
F 
é 
é 
i 
‘ 
i 
‘ 
i 
i 
i 
i 
‘ 
‘ 
‘ 


i *THESE ARE REGULAR SETUPS 


033762 012777 177374 160760 #-260. , @RHWC 3256 DATA WORDS 4 HEADER WORDS 
033770 015220 #WRF ROM ,RO ; THESE TWO INSTRUCTIONS GETS 
033774 160752 RO, @RHBA SADDR. OF WRFROM INTO RO AND 
BUS ADDRESS REGISTER 
012720 010000 MFMT22,(RO)+ ;FORMAT=16 BIT WORDS 
7 CYLINDER=0 
012720 000001 : #1,(RO)+ ; TRACK=0, SECTOR=1, KEYS=0 
005020 0 SKEY1=0 


SKEY2=0 
000400 ; COUNTER 
000000 : MOV r+’ (RO) + ;MOVE ALL ZEROS FOR DATA 


3$ ;BRANCH IF DATA NOT COMPLETE 





CZRJHCO,RPOG/5/6 DSKLS CTRLR2 MACY11 30A(1052) 
11:09 153 


CZRJHC .P12 


10-NOV-77 
012777 


004737 
104401 
000000 


013711 


023737 


000001 160724 
044024 
005123 
015172 


015124 
010000 


015124 


050464 055572 


050466 055574 6$: 


050464 017264 
050466 017266 
045706 


m9 
alte hic 78 11: Sa PAGE 118 
E ECC TEST 


#1, @RHDST ;TRACK=0 SECTOR=1 


PC ,@#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
CPHALT ; CANNOT CONTINUE TESTING IF ANY OF THE 
;STOP THE TEST 


@FWRIFOR ,AR1 ;GET READY FOR WRITE HEADER AND 
DATA WITH 62 om RHCS1 

@FERFLGS CLEAR ERROR FLA 

phel oe @RHOF ;FORMAT BIT=1 (ie BIT WORDS) 

@RHC SCYLINDER =0 

PC, Se COMWHD [WRITE HEADER AND DATA 


;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE ‘‘COMWHD'’ ROUTINE THAT MEANS ALL HEADER ON DISK 
:*IS GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE 
;*ALL ZEROS AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
;*THEY ARE ALL ZEROS 


TST @VERFLGS HAS ANY ERRORS OCCURED? 
71F WRITE ERROR OCCURS ECC IS NOT CHECKED 
BNE TST54 3 ;BRANCH IF YES 


;*COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 
CMP @AGECC1,@#WECC1; COMPARE SOFTWARE ECC WITH HARDWARE ECC 
6$ BRANCH IF GOOD 
;LOW ORDER ECC IN ERROR 
7$ BRANCH TO CONTINUE 
AGE C C2, @aWE CC2; COMPARE pny ECC WITH HARDWARE ECC 


BEQ 7$ ;BRANCH IF GOO 
ERROR 31 HIGH ORDER ect IN ERROR 


JSR PC, on ;CHECK THAT DVA,RDY,DPR,DRY = 1 
TYPE ,CPHALT ; CANNOT CONTINUE IF THEY DON'T 
HALT [STOP THE TEST AND RESTART PROGRAM 


:*FILL ‘'REINTO’’ BUFFER WITH EXPECTED DATA 
JSR RO, @A4CLAREA FILL REINTO BUFFER 
REINTO ; FROM 


EIN : 
REINTO+#<255.*2> ;TO 
-WORD 0 DATA 
MOV @AGECC1 ,@MRE INTO+<256.*2>;F ILL 
QAGECC2. ARE INTO+<257. *2>: FILL 
@#CLAREA as REST 


REINTO+<272. #2> : 


3:70 
;DATA 


SEQ 0116 





mm mma i MM MR RM AL ALALAR 
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034204 005037 015124 


004037 046664 
0162 


0002 
104010 
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MACY11 «ea See bbe -78 11: is PAGE 119 


E— ECC TEST 


CLR @FERFLGS 


; CLEAR ERROR FLAG 


;*NOW COMPARE ‘DISK’ BUFFER WITH ‘REINTO"' 


RO, @#COMPAR 


[TEST BUFFER 


[NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
: RETURN POINT FOR ERROR DATA 


: AND 258 
TARE ECC o9. ARE CHECKED 


;WORD NOS 

:1S DATA 

[WORD NOS 560 TO 273 
ARE TOLERANCE GAP 


[RETURN TO COMPARE 





SEQ 0117 


an 
a id 
zz 


LRU mi mm mR RRR RR RR RAR Rm RAR RRR RAPA AAA AAP AAPA 


CZRJHCO, ag oa’ ye 
CZRJHC P12 10=NOV=77 11:09 


034240 000004 
034242 012706 


034246 012737 


012746 
000400 
054572 


051260 


177777 


012737 
112737 


047176 
054554 
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015142 


050474 
050506 


052654 
052657 


052734 


WRITE ECC TEST 
TST54: SCOPE 
MOV STACK , SP RESET STACK 
MOV MTTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 
SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 
sDATA TO BE READ 


TER 
SK ,RO START OF SIMULATED DISK DATA 
ae , (RO) + :MOVE IN DATA ON TO SIMULATED DISK 


; COUNT 

1$ ;BRANCH IF 256 NOT COMPLETE 
(SP) + UNDO -(SP) 

(RODS, (RO) + ; JUMP er THE TWO ECC WORDS 
31 DATA GAP 


#15. ,R5 
714 TOLERANCE GAP 


(RO) + 
R5 ; CE GAP 
2s ;BRANCH IF NOT COMPLETE 


PC ,@4F ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
7 IN THE CORRECT PLACE 


ARE FOR ECC TEST ONLY 


A#~1 ,@ATSECC ;THIS IS AN ECC TEST 

a4POSITI CLEAR ERROR POSITION COUNTER 
@ANCODE ,@ANCOUNT ; 

@FHARDER , AA HAD TMP DE 

@4GECC1 ECC LOW ORDER TO BE GENERATED 
@AGECC2 ECC HIGH ORDER TO BE GENERATED 
@ADATENV [CLEAR DATA ENVELOPE CLOCK COUNT 
a4ZCODE ;CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


MFMT 22 ,@ACYL 3:16 BITS PER WORD 
; CYLINDER 0, FORMAT 16 BITS 
#O,QMSECOTR+1 ;TRACK 0 


#0. a4SECOTR *SECTOR 0 
#0, QHKEY SKEY1=0 
aHKEY2 TKEY2=0 
#256. @#DAWORD :NO. OF DATA WORDS 
sTHIS IS A READ C 
as. aAcCRC 'GO TO CALCULATE CRC 





ony 
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3*THESE ARE REGULAR SETUPS 


PC, a#CLDISK ;SETUP GENERAL REGISTERS 
160270 #-256.-4.,aRHWC :256. DATA 4 HEADER WORDS 
160264 WREINTO,@RHBA  :STARTING ADDRESS OF READ BUFFER 
#0,-(SP) ‘IN LOWER BYTE GET SECTOR 
000001 #0.1(SP) ‘GET TRACK IN HIGHER BYTE 
(SP)+, @RHDST :TRACK/SECTOR IN RHDST 
012777 010000 160254 #FMT22,aRHOF 16 BITS PER WORD 
[ECC CORRECTION NOT INHIBIT 
SBECAUSE ECC IS NOT GOING 
[TO BE CHECKED 
005077 160252 @RHCA =CYLINDER 0 


004737 046024 PC ,@#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
104401 005123 ,CPHALT ; CANNOT CONTINUE TESTING IF ANY OF THE 
000000 STOP THE TEST 


013711 015176 @AREFOR,@R1 READ HEADER AND DATA=72 
005037 015124 @#ERFLGS ;CLEAR ERROR FLAG 
004737 052514 PC ,@4#COMHD READ HEADER AND DATA 
31F THERE ARE READ ERRORS THEN 
ECC WILL NOT BE CHECKED 


:*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
>*FROM THE "'COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
:*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
isSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
** 
:*HEADER AND DATA ARE TO BE CHECKED. 
:*IN CHECKING READ DATA THE WRITE FROM BUFFER 
WRFROM' IS FILLED WITH EXPECTED DATA AND 
“COMPARISONS ARE MADE 


015124 @FERFLGS 7 ANY ERRORS ALREADY THERE 
T55 CH IF YES 


TS 
045470 PC ,@#PUTREG ;SAVE REGISTERS 
015034 a#ER1 NO ERRORS SHOULD BE SET 
6$ ;BRANCH IF NO ERRORS SET 
32 332 BIT ECC REGISTER SHOULD BE ZERO 
;ONLY 11 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 
:DCK SHOULD BE SET IN RHER1 
013746 050464 $ @AGECC1,-(SP)  :GET PATTERN REGISTER 
042716 174000 #174000, (SP) sKEEP ONLY 11 BITS 
022637 015064 (SP)+,a#EC2 ; COMPARE PATTERN REGISTER 
7$ BRANCH IF GOOD 
32 311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


:*ADD 16 age he ia CLOCKS TO 
;*BRING EBL DOWN 





an 
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000020 7$: #16. ,RO ; COUNTER 
000002 160156 8$: AMCLK ,@RHMR SET CLOCK 
000002 160150 + ee <CoUNT CLOCK 


BN 8$ ‘BRANCH IF 16 CLOCKS NOT DONE 
046214 PC, @#CHECKE “CHECK THAT DVA,RDY,DPR,DRY = 1 
005123  CPHALT : CANNOT CONTINUE IF THEY DON'T 
‘STOP THE TEST AND RESTART PROGRAM 
015220 “GETTING READY TO FILL EXPECTED DATA 
010000 mOiFMT2, ino) ZCYLINDER 0 
000000 (SP) ‘IN LOWER BYTE GET SECTOR 
000000 000001 #0.1(SP) :GET TRACK IN HIGHER BYTE 
(SP)+, (RO)+ [GET TRACK/SECTOR IN BUFFER 
000000 #0, (RO) + Kk FFER 
000000 #0. (RO)+ : 
000400 #256. ,R1 [DATA WORD COUNTER 
000000 


#0,R2 ;DATA 

R2,(RO)+ “DATA INTO BUFFER 

R1 ; COUNT 

3$ ;BRANCH IF 256 NOT DONE 


015124 a4ERFLGS ;CLEAR ERROR FLAG 
045470 PC ,,@#PUTREG SAVE REGISTERS 


;*NOW READ DATA BUFFER WILL BE CHECKED 


046664 JSR RO, @4COMPAR 7 CHECK 
FROM ;GOOD BUFFER 
; TEST BUFFER 
NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 


WORDS 
35 TO 260 ARE DATA WORDS 
;RETURN TO ''COMPAR’’ 


; 
1 
; 
: 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5131 





ano 


CZRJHCO,RPO4/5/6 DSKLS Birr 
CZRJHC P12 11:0 


— 
SRLS 
QAUSWN—O 


034756 
034760 


034764 


035020 


035024 
035026 
035030 


035032 


035112 


035162 


10=NOV-77 1 


000004 
012706 
012737 


012746 


012737 
112737 


054554 


000400 
054572 


051260 


177777 


050504 


010000 


047176 


E 10 
MACY11 — asin tet ox 11: y A PAGE 123 SEQ 0121 


017330 


015142 


050474 
050506 


052654 
052657 


052734 


D ECC ENABLED 
TST55: SCOPE 
MOV A#STACK, SP RESET STACK 
MOV MTTNO,@4#TSTNM =; THIS SAVES TEST NUMBER 
;*SETUP FOR WHAT IS TO BE READ 
[*HEADER CRC IS RESTORED FROM A SUBROUTINE 
sDATA TO BE READ 
; COUNTER 


ZSTART OF SIMULATED DISK DATA 
See , (RO) + zMOVE IN DATA ON TO SIMULATED DISK 


; COUN 

BRANCH IF 256 NOT COMPLETE 
(SP) + ;UNDO =(SP) 
(RO) +, (RO) + ; JUMP aw TWO ECC WORDS 


#15., R5 31 DATA 
314 TOLERANCE GAP 
EAR 


(RO) + 
R5 CE GAP 
2s ;BRANCH IF NOT COMPLETE 


PC ,@4FILLEC ; INSERT ECC IN PROPER PLACE ON DISK 


ARE FOR ECC TEST ONLY 


#-1 ,@ATSECC THIS IS AN ECC TEST 
a4POSIT [CLEAR ERROR POSITION COUNTER 


ECC LOW ORDER TO BE GENERATED 

ECC HIGH ORDER TO BE GENERATED 
@ADATENV CLEAR DATA ENVELOPE CLOCK COUNT 
a4ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


MFMT22,QACYL :16 BITS PER WORD 
:CYLINDER 0, FORMAT 16 BITS 
#0 ,Q4SECOTR+1 RACK 0 


#0. @4SECOTR 
aAKEY1 
#0. aAKEY2 KEY2=0 
#256. @#DAWORD iNO. OF DATA WORDS 
HIS IS A READ COMMAND 
as. avcrc ‘60 TO CALCULATE CRC 





CZRJHCO,RPO4/5/6 DSKLS $C TMs 


CZRJHC P12 


035164 


035172 


035244 


035250 
035254 
035260 


035762 
035266 
035272 


035276 
035302 


035320 


10=NOV=77 


012737 


012737 


012777 


005077 
004737 
104401 
000000 


013711 
005037 
004737 


er as 


045770 
177374 
016264 
000000 


000000 
157524 
010000 


157520 


046024 
005123 


015176 
015124 
052514 


015124 


045470 
100000 


MACY11 Nal 
T55 


054574 


035346 


157536 
157532 


000001 
157522 


015034 


F 10 
slo tot ox 11: 9 PAGE 124 SEQ 0122 
ECC ENABLED 18 


;*THIS IS TO INSERT ERROR 

[*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK' 
THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
+t 


MOV #100000 ,a#DISK+2 ;FORCE ERROR ON BIT NUMBER 32 
:$0 ERROR POSITION REGISTER WILL SHOW 


MOV #22. ,a48$ INSERT POSITION REG. 


;*THESE ARE REGULAR SETUPS 


PC aYCLDISK ;SETUP GENERAL REGISTERS 
#-256.-4.,@RHWC :256. DATA 4 HEADER WORDS 
#REINTO,@RHBA  :STARTING ADDRESS OF READ BUFFER 
#0,-(SP) TIN LOWER BYTE GET SECTOR 
#0.1(SP) ‘GET TRACK IN HIGHER BYTE 
(SP)+, @RHDST :TRACK/SECTOR IN RHDST 
#FMT22,QRHOF  :16 BITS PER WORD 
SECC CORRECTION NOT INHIBIT 
‘BECAUSE ECC IS NOT GOING 
:TO BE CHECKED 
@RHCA “CYLINDER 0 


PC ,@ACHECKT ;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
~CPHALT CANNOT CON TINUE TESTING IF ANY OF THE 
:STOP THE TEST 


@4AREFOR ,AR1 ;READ HEADER AND DATA=72 
a#ERFLGS ;CLEAR ERROR FLAG 
PC ,@4#COMHD [READ HEADER AND DAT 
7 1F THERE ARE READ ERRORS THEN 
SECC WILL NOT BE CHECKED 


;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
3*FROM THE ‘'COMHD'' ROUTINE THAT MEANS SECTOR GAP, 
z*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

:*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

: *DETECTED 

;*HEADER AND DATA ARE TO BE CHECKED. 

:*IN CHECKING READ DATA THE WRITE FROM BUFFER 

;*'WRFROM'' IS FILLED WITH EXPECTED DATA AND 

> *COMPARISONS ARE MADE 


@FERFLGS sANY ERRORS ALREADY THERE 
TST56 BRANCH IF YES 

PC ,a@#PUTREG SAVE REGISTERS 

ADCK,@#ER1 SONLY DATA CHECK ERROR SHOULD BE SET 
6$ BRANCH IF YES 

32 332 BIT ECC REGISTER SHOULD BE NON 


ZERO 
ONLY 11 OF THE 32 i Ae CAN BE SEEN 
IN THE PATERN REGISTER 

:DCK SHOULD BE SET IN RHER1 





CZRJHCO,RPO4/5/6 DSKLS Be 
CZRJHC P12 1:09 


035322 


035354 
035 


035432 
035434 


035442 
035446 


035452 


035476 


035500 


10-NOV-77 1 


013746 


012737 


005037 
004737 


046214 
005123 


015220 


100000 


015124 
045470 


046664 


MACY11 30A(1052) 
T55 


000001 


015232 


6$: 


7$: 
8$: 


3$: 


4$: 
5$: 


G 10 
27-JUL=78 11: . PAGE 125 SEQ 0123 
READ ECC ENABLED 1 


MOV @AGECC1,-(SP)  ;GET PATTERN REGISTER 
BIC #174000, (SP) ;KEEP ONLY 11 BITS 
CMP (SP)+,a#EC2 i; COMPARE PATTERN REGISTER 


BEQ 7$ ‘BRANCH IF GOOD 

ERROR 32 ‘11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 

JSR RO, @#E CORR :GO TO ECC CORRECTION PROCESS 

22. SEXPECTED POSITION REG. WHEN CORRECTION 
‘IS COMPLETE 

JSR PC, a#CHECKE :CHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE —_, CPHALT ‘CANNOT CONTINUE IF THEY DON'T 

HALT ‘STOP THE TEST AND RESTART PROGRAM 

MOV ‘GETTING READY TO FILL EXPECTED DATA 

MOV moiFntes, CR0)+ =CYLINDER 0 

MOVB #0,-(SP) ‘IN LOWER BYTE GET SECTOR 

MOVB «#0, 1 (SP) [GET TRACK IN HIGHER BYTE 

MOV (SP)+, (RO)+ GET TRACK/SECTOR IN BUFFER 

MOV #0, (RO)+ ‘KEY1 IN BUFFER 

MOV #0. (RO) + SKEY2 IN BUFFER 

MOV #256., R1 “DATA WORD COUNTER 

MOV #0,R “DATA 

MOV R2. (RO) + :DATA. INTO BUFFER 

DEC R1 


BNE 3$ ‘BRANCH IF 256 NOT DONE 
;*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM' 


;*NOW THE INSERTED ERROR WILL BE PUT IN 
MOV #100000 ,a#WRFROM+<5*2> ; INSERTED ERROR 


CLR @aFERFLGS ;CLEAR ERROR FLAG 
JSR PC ,@#PUTREG 7SAVE REGISTERS 


3*NOW READ DATA BUFFER WILL BE CHECKED 
JSR RO, @# COMPAR ; CHECK 


WRF ROM :GOOD BUFFER 
REINTO TEST BUFFER 
4+256. [NUMBER OF WORDS CHECKED 
4$ ;RETURN POINT FOR ERROR HEADER 
5$ RETURN POINT FOR ERROR DATA 
TST56 ;RETURN FOR GOOD COMPARISON 
ERROR 4 ;READ NEXT ERROR 
RTS PC ;RETURN TO ‘‘COMPAR"’ 
ERROR 5 WORD ~~ 1 TO 4 ARE 

meneee WORDS 

5 TO 260 ARE DATA WORDS 

RTS PC “RETURN TO *‘COMPAR 








CZRJHCO,RP04/5/6 Ae crm 
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5298 
5299 
300 


3 


SCUMBNAUSWH oO 


035502 
035504 


035510 


035516 


035544 


035550 
035552 
035554 


035556 


035562 


035624 


035630 


10=-NOV-77 


000004 
012706 
012737 


012746 


001375 


004737 


012737 


012737 
112737 


054554 


000400 
054572 


051260 


177777 


050504 


010000 


000000 
000000 
000000 
000000 
000400 
052664 
047176 


MACY11 30A(1052) 
T55 


017330 


015142 


050474 
050506 


052654 
052657 


052734 


TST56: 


H 10 
27-JUL=78 11: 16. PAGE 126 SEQ 0124 
READ ECC ENABLED 1 


SCOPE 
MOV STACK, SP RESET STACK 


MOV MTTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


;DATA_TO BE READ 
; COUNTER 


“START OF SIMULATED DISK DATA 
(SP), » (RO) + :MOVE _IN DATA ON TO SIMULATED DISK 


; COUN 

;BRANCH IF 256 NOT COMPLETE 
(SP) + UNDO (SP) 
(RO) +, (RO) + ; JUMP wy THE TWO ECC WORDS 
#15.,R5 :1 DATA GAP 

314 TOLERANCE GAP 
(RO) + ZCLEAR DATA GAP, AND 
R5 S TOLERANCE GAP 
2s ;BRANCH IF NOT COMPLETE 


PC ,a4F ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
7 IN THE CORRECT PLACE 
ARE FOR ECC TEST ONLY 


#~-1 ,@ATSECC ;THIS IS AN ECC TEST 

a¥POSITI ZCLEAR ERROR POSITION COUNTER 

@ANCODE ,@ANCOUNT ; OD 

@4HARDER ,@AHADTMP 5 TE 

cc ECC LOW ORDER TO BE GENERATED 

;ECC HIGH ORDER TO BE GENERATED 
CLEAR DATA ENVELOPE CLOCK COUNT 

a4ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


MFMT 22, @ACYL 316 BITS PER WORD 
CYLINDER 0, FORMAT 16 BITS 
#0, eetcora RACK 0 


#0. @AKEY2 
#256. , @ADAWORD 


aAX 
R5 ,aA#CRC 60 TO CALCULATE CRC 


:*THIS IS TO INSERT ERROR 





CZ 
C2 


10 
CZRJHCO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 27-JUL-78 11: 16 PAGE 127 SEQ 0125 
CZRJHC.P12 10=NOV=77 11:09 T56 READ ECC ENABLED 


3*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK’ 
ist ie OF THE ERROR CAN BE CHANGED BY CHANGING 
*% 
035710 012737 177760 054574 MOV #177760, aADISK+2 ;FORCE ERROR ON BIT NUMBER 21 THRU 32 
:$0 ERROR POSITION REGISTER WILL SHOW 


035716 012737 010040 036072 MOV #4128. ,a#8$ INSERT POSITION REG. 


;*THESE ARE REGULAR SETUPS 


035724 004737 045770 PC ,a#CLDISk :SETUP GENERAL REGISTERS 
177374 157012 #-256.-4.,@RHWC :256. DATA 4 HEADER WORDS 
016264 157006 WREINTO,@RHBA  :STARTING ADDRESS OF READ BUFFER 
000000 ‘IN LOWER BYTE GET SECTOR 
000000 000001 :GET TRACK IN HIGHER BYTE 
157000 :TRACK/SECTOR IN RHDST 
035762 010000 156776 #FMT22,QRHOF  :16 BITS PER WORD 
SECC CORRECTION NOT INHIBIT 
“BECAUSE ECC IS NOT GOING 
[TO BE CHECKED 
035770 156774 @RHCA SCYLINDER 0 
PC, @#CHECKT ‘CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
| CPHALT ‘CANNOT CONTINUE TESTING IF ANY OF THE 
‘STOP THE TEST 
015176 @#REFOR,@R1 ‘READ HEADER AND DATA=72 
015124 aHERFLG$ SCLEAR ERROR FLAG 
052514 PC, @#COMHD :READ HEADER AND DATA 
‘IF THERE ARE READ ERRORS THEN 
SECC WILL NOT BE CHECKED 
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5385 
5 


10=NOV-77 


004737 
022737 
001401 
104036 


010220 


015124 


045470 
100000 


045470 
100100 


046214 
005123 


015220 
010000 
000000 
000000 
000000 

000 


000 
000400 
000000 


MACY11 30A(1052) 
T56 


015034 


015034 


000001 


6$: 


7$: 
8$: 


9$: 


27=JUL-78 


READ ECC ENABLED 


J 10 
11: 16, PAGE 128 SEQ 0126 


SIF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 

*FROM THE ''COMHD'' ROUTINE THAT MEANS SECTOR GAP, 

[FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

i *SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

** 

[*HEADER AND DATA ARE TO BE CHECKED. 

;*IN CHECKING READ DATA THE WRITE FROM BUFFER 
#' WRFROM'' IS FILLED WITH EXPECTED DATA AND 

“COMPARISONS ARE MADE 


@FERFLGS 
TST57 

PC ,@#PUTREG 
onan 


32 


@4GECC1,-(SP) 
#174000, (SP) 
iares ese 


32 
RO, @#E CORR 


PC ,a#PUTREG 
ADCK!ECH,@4ER1 


9$ 
36 


PC ,@#CHECKE 
HALT 


. 


#WRER 
miFMToe, OR0)4 
#0.-(SP) 
#0.1(SP) 
(SP)+, (RO) + 
#0, (RO)+ 
#0, (RO)+ 
#256, RI 


#0,R 
R2, (RO) + 


7 ANY on iP _ THERE 


[BRANCH 
SAVE REGISTERS 
SONLY DATA CHECK ERROR SHOULD BE SET 


[BRANCH IF YES 
5 ECC REGISTER SHOULD BE NON 


ONLY 11 OF THE 32 BITS CAN BE SEEN 

IN THE PATERN REGISTER 

:DCK SHOULD BE SET IN RHER1 

GET PATTERN REGISTER 

[KEEP ONLY 11 BITS 

COMPARE PATTERN REGISTER 

BRANCH IF GOOD 

311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


;GO TO ECC CORRECTION PROCESS 
EXPECTED POSITION REG. WHEN CORRECTION 
31S COMPLETE 


SAVE REGISTERS 

[WITH ERRORS INSERTED IN BIT POSITIUN 21 
THRU 32 HARD ERROR BIT SHOULD SET 

BRANCH IF GOOD 

;WITH ERROR INSERTED IN BIT POSITION 21 THRU 
:32 ECH SHOULD SET 


;CHECK THAT DVA,RDY,DPR,DRY = 1 
:CANNOT CONTINUE IF THEY DON'T 

;STOP THE TEST AND RESTART PROGRAM 
GETTING READY TO FILL EXPECTED DATA 
[CYLINDER 0 

IN LOWER BYTE GET SECTOR 

;GET TRACK IN HIGHER BYTE 

;GET bem th IN BUFFER 


zDATA WORD COUNTER 
:DATA INTO BUFFER 


CZ 
C2 


K 10 
CZRJHCO,RPO4/5/6 DSKLS gee MACY11 30A(1052) 27=JUL-78 11: 16. PAGE 129 SEQ 0127 
CZRJHC P12 10=-NOV-77 156 READ ECC ENABLED 


5441 036172 005301 DEC R1 ; COUNT 
4 | 036174 001375 BNE 3$ ;BRANCH IF 256 NOT DONE 





CZRJHCO,RP04/5/6 DSKLS cms MACY11 o < hoa 


CZRIHC.P12 10-NOV-77 1 


012737 177760 015232 


005037 015124 


004737 045470 


004037 046664 


L 10 
27-JUL-78 11: 16 PAGE 130 SEQ 0128 
READ ECC ENABLED 1 


ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM' 
;*NOW THE INSERTED ERROR WILL BE PUT IN 


MOV #177760 ,a@#WRFROM+<5*2> ; INSERTED ERROR 


CLR @4ERFLGS EAR ERROR FLAG 


3CL 
JSR PC ,@#PUTREG ;SAVE REGISTERS 


;*NOW READ DATA BUFFER WILL BE CHECKED 
JSR RO, @#COMPAR 
FROM 


E 
;NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
Z;RETURN POINT FOR ERROR DATA 
RETURN FOR GOOD COMPARISON 


C 
;WORD NOS 1 TO 4 ARE 
ee WORDS 
;5 TO 260 ARE DATA WORDS 
RETURN TO ‘‘COMPAR 





CZRJHCO,RP04/5/6 DSKLS cms 


CZRIHC P12 


000004 
012706 
012737 


012737 
012737 


1374 
012777 
004737 


10-NOV=77 11 


045770 


177777 


177374 
015220 
156322 
010000 


J00001 


000400 
177777 


000001 
046024 


MACY11 mae woe? 
156 


015142 


050474 
050506 


056012 
056014 


056052 


156330 


156274 


TSTS7: 


Ry y -78 
AD ECC ENABLED 1 


#STACK, SP 


#TTNO,@4TSTNM 


1$ 
PC,CLDISK 


10 
11: 16, PAGE 131 


RESET STACK 


THIS SAVES TEST NUMBER 
POINTER 


; COUNTER 
;CLEAR SIMULATED DISK AREA 


THIS IS USED TO SET GENERAL REGISTERS 


ARE FOR ECC TEST ONLY 


#-1 ,@ATSECC 
a4POSITI 


@ANCODE , aA#NCOUNT 
@FHARDER , AA HAD TMP 


@4GECC1 
@4GECC2 
@4DATENV 
a47CODE 


; THIS IS AN ECC TEST 
;CLEAR ERROR POSITION COUNTER 


; TEMPORARY N-CODE COUNTER 
; TEMPORARY HARD ERROR COUNTER 


ECC LOW ORDER TO BE GENERATED 

ECC HIGH ORDER TO BE GENERATED 
;CLEAR DATA ENVELOPE CLOCK COUNT 
;CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO BE SETUP FOR DISKLESS USE ONLY 


MFMT22 ,@MWCYL 
#1 ,@AWSECTR 
@AWKEY1 


QAWKEY2 
#256. , @#F NWORD 


RS, aACRC 


ARE REGULAR 


#-260. , @RHWC 
#WRF ROM ,RO 
RO, @RHBA 


#FMT22, (RO) + 


#1,(RO)+4 
(RQ) + 
(RO) + 
#256. ,.R5 
#-1,(RO)+ 
RS 


3$ 
#1, @RHDST 
PC ,@@CHECKT 


: FORMAT 22= 16BI1T WORDS AND 
CYLINDER 0 
;TRACK=0, SECTOR=1 
sKEYI= =0 
;KEY2=0 
[256 DATA WORDS 
;GO TO CALCULATE CRC 


SETUPS 


3256 DATA WORDS 4 HEADER WORDS 
; THESE TWO INSTRUCTIONS GETS 
ADDR. OF WRFROM INTO RO AND 
;BUS ADDRESS REGISTER 

2 FORMAT=16 BIT WORDS 


CYL INDER=0 


STRACK0, SECTOR=1, KEYS=0 
7K 


; TER 
:MOVE ALL ONES FOR DATA 


;BRANCH IF DATA NOT COMPLETE 
; TRACK=0 SECTOR=1 


:CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 


SEQ 0129 





N 10 
CZRJHCO ,RPO4/5/6 DSKLS Birr MACY11 30A(1052) 27=JUL=78 11:16 PAGE 132 SEQ 0130 
CZRIHC P12 10-NO)-77 11:09 157 WRITE ECC TEST 2 


104401 005123 . ; CANNOT CONTINUE TESTING IF ANY OF THE 
000000 ;STOP THE TEST 


013711 015172 @FWRIFOR ,aR1 GET READY FOR WRITE HEADER AND 
DATA WITH 62 ? RHCS1 

005037 015124 @FVERFLGS [CLEAR ERROR FL 

012777 010000 156250 ° [FORMAT BIT=1 (le BIT WORDS) 

005077 156246 CYLINDER =0 

004737 055636 [WRITE HEADER AND DATA 


;*I1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE ‘‘COMWHD'’ ROUTINE THAT MEANS ALL HEADER ON DISK 
stg GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE 
S AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
THEY ARE ALL ZEROS 


015124 TST @4ERFLGS HAS ANY ERRORS OCCURED? 


;1F WRITE ERROR OCCURS ECC IS NOT CHECKED 
BNE TST60 BRANCH IF YES 


> *COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 


023737 050464 055572 @AGECC1 ,aMWECC1; Seer SOFTWARE ECC WITH HARDWARE ECC 
6$ ;BRANCH IF GOOD 


;LOW ORDER ECC IN ERROR 
BR 7$ BRANCH TO CONTINUE 
050466 055574 68: : ; ata , @M#WE C2; COMPARE 7 no ECC WITH HARDWARE ECC 


;BRANCH IF GOOD 
;HIGH ORDER ECC IN ERROR 


046214 JSR PC ,@ACHECKE ;CHECK THAT DVA,RDY,DPR,DRY = 1 
005123 TYPE .CPHALT CANNOT CONTINUE IF THEY DON'T 
HALT STOP THE TEST AND RESTART PROGRAM 


7*FILL 'REINTO’’ BUFFER WITH EXPECTED DATA 


004037 JSR RO,@ACLAREA sFILL REINTO BUFFER 
016264 RE INTO ;FROM 

017262 REINTO+#<255.*2> ;TO 

177777 -WORD -1 DATA 


013737 017264 MOV @4GECC1, @#REINTO+<256. *2>;FILL ECCI 
013737 017266 MOV BAGECC2AMREINTO+<257.*2>:FILL ECC2 
004037 06 JSR RO, a@ACLAREA :FILL REST 

017270 RE INTO+#<258, *2> FROM 

017324 RE INTO*<272, *2> :T0 
000600 0 “DATA 


005037 015124 CLR a#ERFLGS ; CLEAR ERROR FLAG 





CZRJHCO,RPO4/5/6 DSKLS 5 Crmne 


CZRJHC P12 10=NOV-77 


MACY11 30A(1052) 
157 


B11 
27-JUL-78 11:16 PAGE 133 
WRITE ECC TEST 2 


;*NOW COMPARE ‘DISK’ BUFFER WITH ‘REINTO"’ 


RO, @#COMPAR ; CHECK 
;GOOD BUFFER 
TEST BUFFER 
;NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
+ RETURN POINT FOR ERROR DATA 


;RETURN TO COMPAR 

;WORD NOS 1 TO 386 ARE 
DATA WORDS 

[WORD NOS 257 AND 258 

SARE ECC WHICH ARE CHECKED 
;WORD NOS Bes 

:1S DATA 

[WORD NOS 360 TO ef 

sARE TOLERANCE 

RETURN TO COMPARE 


SEQ 0131 





an 


¢ 11 
sory: Nala DSKLS me MACY11 30A(1052) 27=JUL-78 11:16 PAGE 134 SEQ 0132 
CZRJHC.P12 10-NOV=77 11:09 157 WRITE ECC TEST 2 


036670 000004 TST60: SCOPE 
036672 012706 MOV #STACK,SP sRESET STACK 
036676 012737 017330 MOV ATTNO,@4TSTNM) =; THIS SAVES TEST NUMBER 
SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 
012746 177777 #~1,-(SP) ;DATA_TO BE READ 
00 TER 


0004 :C 
054572 :START OF SIMULATED DISK DATA 
3 HT ae , (RO) + ;MOVE IN DATA ON TO SIMULATED DISK 


; COUNT 
1$ BRANCH IF 256 NOT COMPLETE 


(SP) + 
(RO)+, (RO)+ ; JUMP OVER THE TWO ECC WORDS 
#15.,R5 31 DATA GAP 

214 TOLERANCE GAP 
(RO) + ;CLEAR DATA GAP, AND 
RS ; TOLERANCE GAP 
2$ ;BRANCH IF NOT COMPLETE 


051260 PC ,@4F ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
IN THE CORRECT PLACE 
ARE FOR ECC TEST ONLY 
177777 =015142 #-1 ,@ATSECC ;THIS IS AN ECC TEST 


050476 a4POSITI ;CLEAR ERROR POSITION COUNTER 
050472 050474 @ANCODE ,@ANCOUNT ; OD E 
050500 050506 
050464 


EMPORAR D 
sect LOW ORDER TO BE GENERATED 
050466 ECC HIGH ORDER TO BE GENERATED 
037006 050502 [CLEAR DATA ENVELOPE CLOCK COUNT 
037012 @47ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


037016 012737 052654 AFMT22 ACYL 316 BITS PER WOR 


D 
CYLINDER 0, FORMAT 16 BITS 
037024 112737 052657 #0 ,Q@ASECOTR+1 RACK 0 
000000 a. an 


05266 #0. @AKEY2 
052734 #256. , @aADAWORD 


0526 aAX C 
047176 RS, a@ACRC 60 TO CALCULATE CRC 
037074 054554 





D 11 
CZRJHCO,RP04/5/6 DSKLS Ber MACY11 30A(1052) 27=JUL-78 11:16 PAGE 135 SEQ 0133 


CZRJHC.P12 | 10=NOV=77 11:09 T60 READ ECC ENABLED 2A 
5671 
5672 :*THESE ARE REGULAR SETUPS 
5674 037076 004737 045770 JSR PC ayCLDISK :SETUP GENERAL REGISTERS 
5675 037102 012777 177374 155640 MOV #-256.-4.,@RHWC :256. DATA 4 HEADER WORDS 
5676 037110 012777 016264 155634 MOV WREINTO,@RHBA  :STARTING ADDRESS OF READ BUFFER 
5677 037116 112746 000000 MOVB #0, =(SP) ‘IN LOWER BYTE GET SECTOR 
5678 037122 112766 000000 000001 MOVB  #0.1(SP) 'GET TRACK IN HIGHER BYTE 
5679 037130 012677 155626 MOV (SP) +,@RHDST ; TRACK/SECTOR IN RHDST 
5680 037134 012777 010000 155624 MOV #FMT22,@RHOF § :16 BITS PER WORD 
5681 SECC CORRECTION NOT INHIBIT 
5682 “BECAUSE ECC IS NOT GOING 
5683 ‘TO BE CHECKED 
5684 037142 005077 155622 CLR @RHCA [CYLINDER 0 
5686 037146 004737 046024 JSR PC ,@ACHECKT :CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
5687 037152 104401 005123 TYPE —_, CPHALT ‘CANNOT CONTINUE TESTING IF ANY OF THE 
3688 037156 000000 HALT ‘STOP THE TEST 
5690 037160 013711 015176 MOV @AREFOR,aR1 ;READ HEADER AND DATA=72 
5691 037164 005037 015124 CLR @FERFLGS ;CLEAR ERROR FLAG 
5692 037170 004737 052514 JSR PC, a@4COMHD “READ HEADER AND DATA 
5693 ‘IF THERE ARE READ ERRORS THEN 
5694 SECC WILL NOT BE CHECKED 
5695 
5696 
5697 ;*I1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
5698 ‘*FROM THE ‘'COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
5699 :*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
5700 ‘*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
5701 + «DETECTED 
5702 ‘*HEADER AND DATA ARE TO BE CHECKED. 
5703 :*IN CHECKING READ DATA THE WRITE FROM BUFFER 
5704 ‘*' WRFROM'’ IS FILLED WITH EXPECTED DATA AND 
3705  *COMPARISONS ARE MADE 
5707 037174 005737 015124 TST a4ERFLGS ZANY ERRORS ALREADY THERE 
5708 037200 091102 BNE TST61 “BRANCH IF YES 
5709 037202 004737 045470 JSR PC , AAPUTREG [SAVE REGISTERS 
5710 037206 005737 015034 TST avER1 ‘NO ERRORS SHOULD BE SET 
5711 037212 001401 BEQ 6$ ‘BRANCH IF NO ERRORS SET 
$712 037214 104032 ERROR 32 [32 BIT ECC REGISTER SHOULD BE ZERO 
5713 ‘ONLY 11 OF THE 32 BITS CAN BE SEEN 
5714 ‘IN THE PATERN REGISTER 
5715 ‘DCK SHOULD BE SET IN RHER1 
5716 037216 013746 050464 6$: MOV @4GECC1,-(SP) GET PATTERN REGISTER 
5717 037222 042716 174000 BIC #174000.(SP) | :KEEP ONLY 11 BITS 
5718 037226 022637 015064 CMP (SP)+,a#EC2 “COMPARE PATTERN REGISTER 
5719 037232 001401 BEQ 7$ ‘BRANCH IF GOOD 
de 037234 104032 ERROR 32 311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
5722 
5723 
5724 
5725 :*ADD 16 MAINTENANCE CLOCKS TO 


5726 ;*BRING EBL DOWN 


CZRJHCO,RPO4/5/6 DSKLS_CTRLR2 


CZRJHC P12 


037352 


037356 


037402 


037404 


10-NOV-77 11 


012702 
010220 
5301 


:09 


000020 
000002 
000902 


046214 
005123 
015220 
010000 
000000 
000000 
000000 
000000 
000400 
177777 


015124 
045470 


046664 


MACY11 30A(1052) ig se 
T60 READ 


ECC ENABLED 2A 


#16. ,RO 
#MCLK , @RHMR 
> aa tat 


8$ 
PC ,@#CHECKE 
HALT 


#0, 
(5P)+, 
#0, 


#0, 

#256., 

A-1, 

Re, 

R1 

3$ 

@aFERFLGS 

PC ,@#PUTREG 


#WRFROM, RO 
#O!FMTZ2, (RO)* 


E 11 
11:16 PAGE 136 SEQ 0134 


; COUNTER 
;SET CLOCK 
COUNT CLOCK 


BRANCH IF 16 CLOCKS NOT DONE 


3$ 

SGETTING READY TO FILL EXPECTED DATA 
CYLINDER 

7 IN LOWER BYTE GET SECTOR 

ZGET TRACK IN HIGHER BYTE 

[GET TRACK/SECTOR IN BUFFER 

[KEY1 IN BUFFER 

sKEY2 IN BUFFER 

ade WORD COUNTER 


:DATA INTO BUFFER 


; COUN 

;BRANCH IF 256 NOT DONE 
;CLEAR ERROR FLAG 

SAVE REGISTERS 


;NOW READ DATA BUFFER WILL BE CHECKED 


JSR 
FROM 


RO, 2 COMPAR 


3; CHECK 

;GOOD BUFFER 

; TEST BUFFER 

= NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 


sHEADER WORDS 
:5_TO 260 ARE DATA WORDS 
;RETURN TO ''COMPAR 





CZRJHCO ,RP04/5/6 ——’ inne 


CZRJHC.P12 


037406 
037410 


037414 


037422 


037450 
037454 


037530 


037534 
037542 


037612 


10=NOV=7 
000004 
012706 


012737 


012746 


004737 


012737 


054554 


177777 
000400 
054572 


051260 


177777 


000000 
000000 
000000 
000400 
052664 
047176 


F 11 
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017330 


015142 


050474 
050506 


052654 
052657 


052734 


AD ECC ENABLED 


TST61: SCOPE 
MOV STACK, SP sRESET STACK 


MOV MTINO,@ATSTNM =; THIS SAVES TEST NUMBER 


;*SETUP FOR WHAT IS TO BE READ 
;*HEADER CRC IS RESTORED FROM A SUBROUTINE 


#-1,-(SP) ;DATA_TO BE READ 
; COUNTER 


ZSTART OF SIMULATED DISK DATA 
<3?) , (RO) + zMOVE IN DATA ON TO SIMULATED DISK 


1$ BRANCH IF 256 NOT COMPLETE 
(SP) + -(SP) 


(RO)+,(RO)+ SUMP OVER THE TWO ECC WORDS 
3.4 71 DATA GAP 
314 TOLERANCE GAP 
(RO) + ;CLEAR DATA GAP, AND 
R5 ; TOLERANCE GAP 
2$ ;BRANCH IF NOT COMPLETE 


PC ,@4F ILLEC ; INSERT ECC IN PROPER PLACE ON DISK 


ARE FOR ECC TEST ONLY 


#1 ,@ATSECC THIS IS AN ECC TEST 

a¥POSITI CLEAR ERROR POSITION COUNTER 
@ANCODE ,@ANCOUNT ; 

@4HARDER ,@AHADTMP =; TE 

@AGECC1 ;ECC LOW ORDER TO BE GENERATED 
@AGECC2 ECC HIGH ORDER TO BE GENERATED 
@A4DATENV CLEAR DATA ENVELOPE CLOCK COUNT 
a4ZCODE ;CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


#FMT22,Q#CYL ;16 BITS PER WORD 
SCYLINDER 0, FORMAT 16 BITS 
#O,QMSECOTR+1  :TRACK O 
#0. a#SECOTR ‘SECTOR 0 
#0. aMKEY1 *KEY1=0 
#0,Q4KEY2 sKEY2= 
#256. , @aADAWORD :NO. OF DATA WORDS 
aax THIS IS A READ COMMAND 
RS, aACRC ‘GO TO CALCULATE CRC 


SEQ 0135 





C2 
C2 


G 11 
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;*THIS IS TO INSERT ERROR 

:*THE DISK DAT. IS IN LOCATION STARTING FROM ‘DISK* 
aT POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
-* 


937614 012737 077777 054574 MOV #77777 ,@ADISK+2 ;FORCE ERROR ON BIT NUMBER 32 
7S0 ERROR POSITION REGISTER WILL SHOW 


32 
037622 012737 000026 037776 MOV #22. ,aA8S S INSERT POSITION REG. 


;* THESE ARE REGULAR SETUPS 


PC ,@#CLDISK SETUP GENERAL REGISTERS 
155106 #-256.-4. ,ARHWC ; 
155102 m.-SP 


] 
000001 :GET TRACK IN HIGHER BYTE 
; TRACK/SECTOR IN RHDST 
155072 #FMT22 , @RHOF 316 BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
SBECAUSE ECC IS NOT GOING 
O BE CHECKED 


iT 
037674 155070 @RHCA ZCYLINDER 0 
037700 004737 PC ,@ACHECKT ;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
037704 ,CPHALT [CANNOT CONTINUE TESTING IF ANY OF THE 
037710 000000 ; 
037712 015176 @AREF OR ,AR1 
037716 015124 @FERFLGS 
037722 004737 052514 PC ,a@#COMHD DATA 
71F THERE ARE READ ERRORS THEN 
TECC WILL NOT BE CHECKED 


7*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7*FROM THE ‘‘COMHD’’ ROUTINE THAT MEANS SECTOR GAP, 
:*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
; *DETECTED 
;*HEADER AND DATA ARE TO BE CHECKED 
:*IN CHECKING READ DATA THE WRITE FROM BUFFER 
*" WRFROM'' IS FILLED WITH EXPECTED DATA AND 
‘ COMPAR I SONS ARE MADE 


037726 005737 015124 a#ERFLGS sANY ERRORS ALREADY THERE 
001077 T CH IF YES 


TST62 
045470 PC ,a#PUTREG ‘SAVE REGISTERS 
100000 015034 cial ONLY DATA CHECK FRROR SHOULD BE SET 


BRANCH IF YES 
037750 32 soe ait ECC REGISTER SHOULD BE NON 


ONLY 11 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 
;DCK SHOULD BE SET IN RHER1 

037752 013746 050464 : @AGECC1,-(SP)  ;GET PATTERN REGISTER 

037756 042716 174000 #174000, (SP) ;KEEP ONLY 11 BITS 
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037762 022637 015064 CMP (SP)+,aM#EC2 ; COMPARE PATTERN REGISTER 
037766 BEQ 7$ BRANCH I 
037770 ERROR 32 311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


037772 051106 : JSR RO,@4E CORR :GO TO ECC CORRECTION PROCESS 
037776 : és rg es lle REG. WHEN CORRECTION 


046214 PC, @#CHECKE :CHECK THAT DVA,RDY,DPR,DRY = 1 
005123 | CPHALT “CANNOT CONTINUE IF THEY DON'T 
‘STOP THE TEST AND RESTART PROGRAM 
#WRFROM, RO ‘GETTING READY TO FILL EXPECTED DATA 
#O'FMT22,(RO)+ CYLINDER 0 
#0,-(SP) ‘IN LOWER BYTE GET SECTOR 
000000 000001 #0.1(SP) ‘GET TRACK IN HIGHER BYTE 
(SP) +, (RO)+ “GET TRACK/SECTOR IN BUFFER 
000000 0, (RO) + ‘KEY1 IN BUFFER 
000000 iKEVe IN BUFFER 
A WORD COUNTER 


‘DA TA 
:DATA_INTO BUFFER 
R ; COUNT 
001375 BRANCH IF 256 NOT DONE 


;*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM’ 
3*NOW THE INSERTED ERROR WILL BE PUT IN 


012737 077777 015232 MOV #77777 ,QAWRFROM+<5*2> ; INSERTED ERROR 
004737 045470 JSR PC ,@#PUTREG ;SAVE REGISTERS 
005037 015124 CLR @FERFLGS CLEAR ERROR FLAG 


015220 
010000 


000400 
177777 


;*NOW READ DATA BUFFER WILL BE CHECKED 


046664 JSR RO, a@#COMPAR ; CHECK 
FROM ;GOOD BUFFER 
; TEST BUFFER 
[NUMBER OF WORDS CHECKED 
[RETURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 


040126 


WORDS 
:5 TO 260 ARE abe! WORDS 
040130 :RETURN TO ‘‘COMPAR 





CZRJHCO,RP04/5/6 DSKLS cm 
CZRJHC .P12 11:09 


040132 
040134 


040140 


10-NOV-77 


000004 
012706 
012737 


012746 


012737 
112737 


054554 


001000 
000062 


“77777 
000400 
054572 


000017 


051260 


177777 


047176 


MACY11 =. 
T61 


017330 


015142 


050474 
050506 


052654 
052657 


052734 


TST62: 


1$: 


2$: 


I 11 
sie tot oe 11:16 PAGE 140 SEQ 0138 
D ECC ENABLED 28 


SCOPE 
MOV 


MOV 


#STACK, SP RESET STACK 
MTTNO,@4TSTNM = ;THIS SAVES TEST NUMBER 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


JSR 


#~-1,-(SP) ;DATA_TO BE READ 
#256. .R5 ; COUNTER 
#DISK,RO START OF SIMULATED DISK DATA 
ae , (RO) + MOVE IN DATA ON TO SIMULATED DISK 
1$ ;BRANCH IF 256 NOT COMPLETE 
(SP)+ ;UNDO -(SP) 
(RO) +, (RO) + JUMP OVER THE TWO ECC WORDS 
#15.,R5 DATA GAP 
714 TOLERANCE GAP 
(RO) + ZCLEAR DATA GAP, AND 
R5 S TOLERANCE GAP 
2$ BRANCH IF NOT COMPLETE 
PC ,@4F ILLEC INSERT THE TWO ECC WORDS ON THE DISK 


IN THE CORRECT PLACE 
ARE FOR ECC TEST ONLY 


#~-1 ,AATSECC :THIS IS AN ECC TEST 

a4POSITI ;CLEAR ERROR POSITION COUNTER 
@ANCODE ,@ANCOUNT ; TEMPORARY N-CODE COUNTER 
@AHARDER ,@#AHADTMP ; TEMPORARY HARD ERROR COUNTER 


@4GECC1 ECC LOW ORDER TO BE GENERATED 

@A4GECC2 ECC HIGH ORDER TO BE GENERATED 
@ADATENV CLEAR DATA ENVELOPE CLOCK COUNT 
aA4ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


#FMT22,a@MCYL :16 BITS PER WORD 
“CYLINDER 0, FORMAT 16 BITS 

#0. @HSECOTR+1 :TRACK O 
#0. a4SECOTR TSECTOR 0 

* aAKEY SKEY1=0 
#0. aAKEY2 TKEY2=0 
#256.,aM#DAWORD :NO. OF DATA WORDS 
aAx : THIS IS A READ COMMAND 
R5,aACRC *GO TO CALCULATE CRC 


=-- 


*THIS IS TO INSERT ERROR 





C2i 
C2i 


J 11 
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3*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK* 
phe By OF THE ERROR CAN BE CHANGED BY CHANGING 
*& MO 


012737 077757 054574 MOV #77757 ,@ADISK+2 ;FORCE ERROR ON BIT NUMBER 32 AND 21 
+ $0 ERROR POSITION REGISTER WILL SHOW 


012737 010040 040522 MOV #4128. ,a#8$ INSERT POSITION REG. 


;*THESE ARE REGULAR SETUPS 


PC ,a@#CLDISK SETUP GENERAL REGISTERS 
154362 #-256.-4. ,dRHWC ;256. DATA 4 HEADER WORDS 
154356 MREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
) IN LOWER BYTE GET SECTOR 
000001 ;GET TRACK IN HIGHER BYTE 
P ; TRACK/SECTOR IN RHDST 
012777 010000 154346 #FMT 22, @RHOF 716 BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
s;BECAUSE ECC IS NOT GOING 
:TO BE CHECKED 
005077 154344 @RHCA CYLINDER 0 


004737 046024 PC ,@A#CHECKT ; CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
104401 005123 ~CPHALT CANNOT CONTINUE TESTING IF ANY OF THE 
000000 ;STOP THE TEST 


013711 015176 @A4REFOR ,@R1 READ HEADER ry DATA=72 
ott td 015124 @4ERFLGS ; CLEAR ERROR FLAG 


052514 PC ,a@#COMHD ;READ HEADER AND DAT 
SIF THERE ARE READ ERRORS THEN 
ECC WILL NOT BE CHECKED 


;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7*FROM THE ‘‘COMHD'' ROUTINE THAT MEANS SECTOR GAP, 
7*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
z*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
; *DETECTED 
;*HEADER AND DATA ARE TO BE CHECKED. 
:*IN CHECKING READ DATA THE WRITE FROM BUFFER 
*" WRFROM'' IS FILLED WITH EXPECTED DATA AND 
“ #COMPAR I SONS ARE MADE 


005737 015124 17% 7 ANY ! ri THERE 


TST [BRANCH 
045470 PC ,a@#PUTREG SAVE REGISTERS 
100000 015034 wc, ,@AER1 ONLY DATA CHECK ERROR SHOULD BE SET 


BRANCH IF YES 
32 soe met ECC REGISTER SHOULD BE NON 


;ONLY 11 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 
;DCK SHOULD BE SET IN RHER1 

013746 050464 : @AGECC1,-(SP)  ;GET PATTERN REGISTER 
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CZRJHC P12 


10-NOV-77 


022737 


001401 
104036 


174000 
015064 


051106 


045470 


100100 


046214 
005123 


015220 
010000 


000000 
000000 


000000 
000000 
000400 
177777 


077757 
045470 
015124 


MACY11 30A(1052) 
T62 


015034 


000001 


015232 


27-JUL-78 


READ ECC ENABLED 2C 


#174000, (SP) 
‘sP? + ,QMEC2 


7 
32 
RO, @4#E CORR 


PC ,@4#PUTREG 


#DCK!ECH, @4ER1 


9$ 
36 


PC ,@#CHECKE 
~CPHALT 


moiFni2s, tR0) 
#0,-(SP) 
#0.1(SP) 
(SP)+, (RO) + 


re 
~ ts (RO) + 
3s 


K 11 
11: 16 PAGE 142 


KEEP ONLY 11 BITS 

; COMPARE PATTERN REGISTER 

BRANCH IF GOOD 

311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


:GO TO ECC CORRECTION PROCESS 
EXPECTED POSITION REG. WHEN CORRECTION 
71S COMPLETE 


SAVE REGISTERS 


WITH ERRORS INSERTED IN BIT POSITION 21 
AND 32 HARD ERROR BIT SHOULD SET 

‘BRANCH IF GOOD 

;WITH ERROR INSERTED IN BIT POSITION 21 THRU 


732 HCE SHOULD SET 


CHECK THAT DVA,RDY,DPR,DRY = 1 
CANNOT CONTINUE IF THEY DON'T 
:STOP THE TEST AND RESTART PROGRAM 
;GETTING READY TO FILL EXPECTED DATA 
CYLINDER 0 

;IN LOWER BYTE GET SECTOR 

GET TRACK IN HIGHER BYTE 

GET TRACK/SECTOR IN BUFFER 

;KEY1 IN BUFFER 

iKEY2 IN BUFFER 

DATA WORD COUNTER 


ZDATA 
:DATA INTO BUFFER 
“BRANCH IF 256 NOT DONE 


;*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM' 
7*NOW THE INSERTED ERROR WILL BE PUT IN 


MOV 
JSR 
CLR 


#77757, a ROM+<5*2> 


PC ,a#PUTR 
a#ERFLGS 


; INSERTED ERROR 
;SAVE REGISTERS 
;CLEAR ERROR FLAG 


3*NOW READ DATA BUFFER WILL BE CHECKED 


JSR 
FROM 


RO, @#COMPAR 


= 


OOD BUFFER 
Test BUFFER 
;NUMBER OF WORDS CHECKED 
[RETURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 


SRETURN FOR GOOD COMPARISON 
;READ NEXT ERROR 





SEQ 0140 CZF 


ao 
™ 
es] 


ee nee eee NN es en Oe a en ee Oe Oe ee OO 
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RTS PC ;RETURN TO *‘COMPAR’’ 

5$: ERROR 5 ; WORD “ 1 TO 4 ARE 
sHEADER WORDS 

TO 260 ARE DATA WORDS 
RETURN TO ‘COMPAR 


040666 000207 
040670 104005 


6104 
6105 040672 000207 RTS PC 
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000004 
012706 
0127357 


012737 
012737 


012720 
012720 


012777 
004737 


045770 


177777 


177374 
015220 
153672 


000001 
000400 
052525 


000001 
046024 


MACY11 30A(1052) 
T62 


017330 


015142 


050474 
050506 


056012 
056014 


056052 


TST63: 


27-JUL-78 


READ ECC ENABLED 


3 * THESE 
MOV 


STACK, SP 
#TTNO,@ATSTNM 


1$ 
PC,.CLDISK 


M11 
11:16 PAGE 144 
2c 


RESET STACK 
THIS SAVES TEST NUMBER 
;POINTER 


; COUNTER 
;CLEAR SIMULATED DISK AREA 


THIS IS USED TO SET GENERAL REGISTERS 


ARE FOR ECC TEST ONLY 


#~-1 ,@ATSECC 
aFPOSITI 


@ANCODE , @ANCOUNT 
@AHARDER , @#HAD TMP MPORAR 

;ECC LOW ORDER TO BE GENERAIED 
ECC HIGH ORDER TO BE GENERATED 
CLEAR DATA ENVELOPE CLOCK COUNT 
CLEAR LEADING ZEROS CLOCK COUNT 


a#ZCODE 


ARE TO BE SETUP 


MFMT 22, @AWCYL 
#1 ,QAWSECTR 
@AWKEY1 


OAWKEY? 
#256. , @AF NWORD 
CRC 


THIS IS AN ECC TEST 
[CLEAR ERROR POSITION COUNTER 
; ODE COUNTER 


FOR DISKLESS USE ONLY 


;FORMAT22=16BIT WORDS AND 
CYLINDER 0 
; TRACK=0, SECTOR=1 


a= bh =0 
EY2=0 
O56 DATA WORDS 
:GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


#-260. , ARHWC 
#WRF ROM, RO 
RO, @RHBA 
#FMT22,(RO)+ 
#1,(RO)+ 
(RO) + 

(RO) + 

#256. ,R5 
#52525, (RO) + 
R5 

3$ 

#1, @RHDST 
PC, a@#CHECKT 


3256 DATA WORDS 4 HEADER WORDS 
THESE TWO INSTRUCTIONS GETS 


ADDR. OF WRFROM INTO RO AND 
;BUS ery REGISTER 
$F T=16 BIT WORDS 
AT pe DER=0 
ne SECTOR=1, KEYS=0 


; COUNTER 
MOVE ALL 52525 FOR DATA 


;BRANCH IF DATA NOT COMPLETE 
; TRACK=0 SECTOR=1 


CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 


SEQ 0142 
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104401 005123 TYPE ,CPHALT CANNOT CONTINUE TESTING IF ANY OF THE 
000000 HALT STOP THE TEST 


013711 015172 @AWRIFOR,AR1 ;GET READY FOR WRITE HEADER AND 
;DATA WITH 62 a RHCS1 
015124 C @FERFLGS ;CLEAR ERROR FLA 
010000 #FMT 22, @RHOF SFORMAT BIT=1 (16 BIT WORDS) 
153616 C @RHCA SCYLINDER =0 
055636 PC ,@#COMWHD [WRITE HEADER AND DATA 


;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE ‘‘COMWHD'' ROUTINE THAT MEANS ALL HEADER ON DISK 
:*IS GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE 
7*ALL 52525 AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
;*THEY ARE ALL ZEROS 


005737 015124 TST @#ERFLGS ;HAS ANY ERRORS OCCURED? 
;1F WRITE ERROR OCCURS ECC IS NOT CHECKED 
001056 BNE TST64 ; ;BRANCH IF YES 


R & 
—_- —_ 
—_ —_ 
Rez 


; COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 
023737 050464 055572 CMP @AGECC1,@MWECC1;COMPARE SOFTWARE ECC WITH HARDWARE ECC 
6$ ;BRANCH IF GOOD 
;LOW ORDER ECC IN ERROR 
BR 7$ BRANCH TO CONTINUE 
050466 055574 68: @AGECC2 ,@MWECC2 ; COMPARE SOFTWARE ECC WITH HARDWARE ECC 
BEQ 7$ [BRANCH IF GOOD 
ERROR 31 HIGH ORDER ECC IN ERROR 


— aes 
RSRRVF 


— 
o 


046214 JSR PC ,@#CHECKE CHECK THAT DVA,RDY,DPR,DRY = 1 
005123 TYPE ~CPHALT CANNOT CONTINUE IF THEY DON'T 
HALT :STOP THE TEST AND RESTART PROGRAM 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 


ee 
MANN 


*FILL ‘REINTO'’ BUFFER WITH EXPECTED DATA 
045706 JSR ay arcane aa REINTO BUFFER 


EINTO 
RE INTO+<255.*2> ;TO 
052525 -WORD 52525 ‘DATA 


013737 050464 017264 MOV QHGECC1 .a#REINTO+<256. *2>;FILL ECCI 
013737 050466 017266 MOV AAGECC2.AMREINTO+<257.*2>:FILL ECC2 
045706 JSR RO, @#CLAREA :FILL REST 
017270 RE INTO+<258, *2> : FROM 

017324 RE INTO+<272.*2> 3:70 
000000 0 SDATA 


005037 015124 CLR @a4ERFLGS :CLEAR ERROR FLAG 


ae eee ee eee eee ee eee ee ee Rh RRR A AAA AAAAAAAAAAAA AAAAAABAAAM 


RELVVVE 
NOMS WN-O 
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:*NOW COMPARE ‘DISK'’ BUFFER WITH *REINTO"' 
004037 046664 RO, @#COMPAR 
2 NTO 


rrr 


SS Ss Ss Ss 
Seesyyy 
NOALO 


STEST BUF FER 

:NUMBER OF WORDS CHECKED 

RETURN POINT FOR ERROR HEADER 

+ RETURN POINT FOR ERROR DATA 
FOR OMPAR I 


;RETURN TO COMPAR 
; WORD et TO 356 ARE 


RRRRRRKKKK 


—— = 
fSNO 


; 257 AND 258 
ZARE ECC WHICH MARE CHECKED 
D NOS By 


71S DATA 

;WORD NOS 360 TO 273 
ARE TOLERANCE GAP 
[RETURN TO COMPARE 


SEQ 0144 





CZ 
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6239 

6240 041320 000004 TST64: SCOPE 

6241 041322 012706 001000 MOV #STACK,SP sRESET STACK 

6242 041326 012737 000064 017330 MOV #TTNO,@#TSTNM :THIS SAVES TEST NUMBER 

6264 

6265 :*SETUP FOR WHAT IS TO BE READ 

6246 “*HEADER CRC IS RESTORED FROM A SUBROUTINE 

6248 041334 012746 052525 MOV #52525,-(SP) sDATA TO BE READ 

6249 041340 012705 000400 MOV #256. RS > COUNTER 

6250 041344 012700 054572 MOV #D1SK.RO “START OF SIMULATED DISK DATA 
6251 041350 011620 1$: MOV (SP), (RO) + ;MOVE IN DATA ON TO SIMULATED DISK 
6252 041352 005305 DEC R5 T 

6253 041354 001375 BNE 1$ “BRANCH IF 256 NOT COMPLETE 
6254 041356 005726 TST (SP)+ ‘UNDO =(SP 

6255 041360 022020 CMP (RO)+, (RO)+ + JUMP OVER THE TWO ECC WORDS 
6256 041362 012705 000017 MOV #15.,R5 :1 DATA GAP 

6257 [14 TOLERANCE GAP 

6258 041366 005020 23: CLR (RO) + = CLEAR DATA GAP, AND 

6259 041370 005305 DEC RS ‘TOLERANCE GAP 

6260 041372 001375 BNE 2$ “BRANCH IF NOT COMPLETE 

6262 041374 004737 051260 JSR PC, @4F ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
6265 SIN THE CORRECT PLACE 

6265 :*THESE ARE FOR ECC TEST ONLY 

6267 041400 012737 177777 015142 MOV #~1 ,aA#TSECC :THIS IS AN ECC TEST 

6268 041406 005037 050476 CLR a#POSITI =CLEAR ERROR POSITION COUNTER 
6269 041412 013737 050472 050474 MOV @ANCODE ,@#NCOUNT ; TEMPORARY N-CODE COUNTER 
6270 041420 013737 050500 050506 MOV @AHARDER , @AHAD TMP ” ; TEMPORARY HARD ERROR COUNTER 
6271 041426 005037 050464 CLR aAGECC1 sECC LOW ORDER TO BE GENERATED 
6272 041432 005037 050466 CLR QAGECC2 “ECC HIGH ORDER TO BE GENERATED 
6273 041436 005037 050502 CLR @A4DATENV ;CLEAR DATA ENVELOPE CLOCK COUNT 
627 041442 005037 050504 CLR a4#ZCODE SCLEAR LEADING ZEROS CLOCK COUNT 
6276 

6277 *THESE ARE TO SETUP FOR DISKLESS USE ONLY 

6279 041446 012737 010000 052654 MOV #FMT22,QMCYL ;16 BITS PER WORD 

6280 :CYLINDER 0, FORMAT 16 BITS 

6281 041454 112737 052657 MOVB #0,@#SECOTR+1 TRACK 0 

6282 041462 112737 000000 052656 MOVB #0. a#SECOTR ‘SECTOR 0 

6283 041470 012737 052660 MOV #0. aAKEY1 ;KEY1= 

6284 041476 012737 052662 MOV #0. aAKEY2 KEY2=0 

6285 041504 012737 000400 052734 MOV #256. , aADAWORD NO. OF DATA WORDS 

62 041512 005037 052 CLR aA x :THIS IS A READ COMMAND 

6287 041516 004537 047176 JSR R5,a#CRC 'GO TO CALCULATE CRC 

6288 041522 052654 CYL 

6289 041524 054554 WCRC 

6290 

6291 

6292 

6293 

6294 :*THESE ARE REGULAR SETUPS 
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CZRJHC P12 10=-NOV=77 11 


012777 


005077 
004737 
104401 
000000 


013711 
005037 
004737 


012700 


:09 


045770 
177374 
016264 
000000 


000000 
153176 
010000 


153172 
046024 
005123 


015176 
015124 
052514 


015124 


045470 
015034 


050464 


MACY11 30A(1052) 
164 


153210 
153204 


000001 
153174 
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27-JUL=78 11:16 PAGE 148 
READ ECC ENABLED 3A 


PC g4CLDISK :SETUP GENERAL REGISTERS 
#~256.-4.,@RHWC :256. DATA 4 HEADER WORDS 
“STARTING ADDRESS OF READ BUFFER 
TIN LOWER BYTE GET SECTOR 
S :GET TRACK IN HIGHER BYTE 
(SP)+, @RHDST :TRACK/SECTOR IN RHDST 
#FMT22,QRHOF ;16 BITS PER WORD 
:ECC CORRECTION NOT INHIBIT 
:BECAUSE ECC IS NOT GOING 
:T9 BE CHECKED 
@RHCA “CYLINDER 0 


PC ,@#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF THE 
STOP THE TEST 


@AREFOR ,AR1 ;READ HEADER AND DATA=72 
@FERFLGS ;CLEAR ERROR FLAG 
PC ,@#COMHD [READ HEADER AND DAT 
:1F THERE ARE READ ERRORS THEN 
ZECC WILL NOT BE CHECKED 


z*1F THE PROGRAM COMES BACK HERE WITHOUT ae PRINTOUTS 
7*FROM THE ‘'COMHD’’ ROUTINE THAT MEANS SECTOR GAP, 
*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
:*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 


: *DETECTED 

; WEADER AND DATA ARE TO BE CHECKED. 

7*IN CHECKING READ DATA THE WRITE FROM BUFFER 
;*' WRFROM’’ IS FILLED WITH EXPECTED DATA AND 
;*COMPARISONS ARE MADE 


@#ERFLGS zANY ERRORS ALREADY THERE 
TST65 [BRANCH IF YES 

PC ,a#PUTREG : SAVE REGISTERS 

aVER1 


6$ “ BRANC IF NO 
32 332 BIT ECC REGISTER SHOULD BE ZERO 
ONLY 11 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 
:DCK SHOULD SET_IN RHER1 
@WGECC1,-(SP) GET PATTERN REGISTER 
#174000, (SP) SKEEP ONLY 11 BITS 
(SP)+, a#EC2 ; COMPARE PATTERN REGISTER 
7$ BRANCH IF GOOD 
32 311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


;*ADD 16 MAINTENANCE CLOCKS TO 
;*BRING EBL DOWN 


MOV #16.,R0 ; COUNTER 


SEQ 0146 





CZ 
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CZRJHCO,RP04/5/6 DSKLS 5 CTLs 


CZRJHC.P12 


10=NOV=77 
052777 


000002 
000002 


046214 
005123 


015220 
010000 


000000 
090000 
000000 
000400 
052525 


015124 
045470 


046664 


MACY11 30A(1052) 
T64 


153076 8$: 
153070 


ECC ENABLED 
AMCLK ,@RHMR 
#MCLK ,QRHMR 
RO 
8$ 
PC ,@#CHECKE 
-CPHALT 


#0! mOiPMT2, ino) 
#0.-(SP) 
#0.1(SP) 


(SP)+, (RO) + 
R2,(RO)+ 
R1 


3$ 
@#ERFLGS 
PC ,@#PUTREG 


E 12 
27-JUL=78 11:16 PAGE 149 
READ 3A 


SET CLOCK 
S COUNT CLOCK 


;BRANCH IF 16 CLOCKS NOT DONE 

CHECK THAT DVA,RDY,DPR,DRY = 1 

; CANNOT CONTINUE IF THEY DON'T 

:STOP THE TEST AND RESTART PROGRAM 
GETTING READY TO FILL EXPECTED DATA 
CYLINDER 0 

7 IN LOWER BYTE GET SECTOR 

GET TRACK IN HIGHER BYTE 

3GET yy ty IN BUFFER 


:DATA WORD COUNTER 
Coe INTO BUFFER 
[BRANCH IF 256 A DONE 


;CLEAR ERROR F 
[SAVE REGISTERS 


;*NOW READ DATA BUFFER WILL BE CHECKED 


RO, @4COMPAR 


; CHECK 
:G00 


NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 


WORDS 
5 TO 260 Be DATA WORDS 
RETURN T OMPAR"* 


SEQ 0147 





F 12 
CZRJHCO,RPO4/5/6 DSKLS gt me MACY11 30A(1052) 27=JUL=78 11:16 PAGE 150 SEQ 0148 
CZRIHC P12 10-NOV-77 11:09 T64 READ ECC ENABLED 3A 


000004 TST65: SCOPE 
012706 000 MOV STACK , SP RESET STACK 
012737 000 017330 MOV MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 


;*SETUP FOR WHAT IS TO BE READ 
;*HEADER CRC IS RESTORED FROM A SUBROUTINE 


012746 052525 #52525, =(SP)  ;DATA TO BE READ 
000400 #256. RS ; COUNTER 
054572 #D1SK,RO START OF SIMULATED DISK DATA 
Ht ge , (RO) + MOVE IN DATA ON TO SIMULATED DISK 


1$ [BRANCH IF — NOT COMPLETE 
(SP) + UNDO =(SP) 
bm aoc hy ; JUMP a ha THE TWO ECC WORDS 


*¢e DAT A GAP 
714 TOLERANCE GAP 
(RO) + ZCLEAR DATA GAP, AND 
R5 [TOLERANCE GAP 
2$ ;BRANCH IF NOT COMPLETE 


051260 PC ,@4F ILLEC ; INSERT ECC IN PROPER PLACE ON DISK 


ARE FOR ECC TEST ONLY 


Se oe 015142 #~1 ,@ATSECC THIS IS AN ECC TEST 
a4POSITI CLEAR ERROR POSITION COUNTER 
050474 @ANCODE ,AANCOUNT ; TEMPORARY N-CODE COUNTER 
050506 @FHARDER ,@#HADTMP ; TEMPORARY HARD ERROR COUNTER 
@4GECC1 sECC LOW ORDER TO BE GENERATED 
@4GECC2 ECC HIGH ORDER TO BE GENERATED 
@ADATENV CLEAR DATA ENVELOPE CLOCK COUNT 
005037 aA4ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


a eee ee ee ee ee ee ee ee ee ee SO ow Fe 


ARE TO SETUP FOR DISKLESS USE ONLY 
012737 2. 052654 FMT 22 ACYL 316 BITS PER WORD 


“CYLINDER 0, FORMAT 16 BITS 
112737 052657 #0, aM#SECOTR+1 RACK 0 
#0, a¥SECOTR 
* aAKEY1 
052662 BAKE Y2 Y2= 

000400 052734 m0 am , @ADAWORD a OF DATA WORDS 

052664 aAx ‘THIS IS A READ COMMAND 

047176 R5,aACRC *GO TO CALCULATE CRC 


054554 


i*THIS IS TO INSERT ERROR 
;*THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK* 
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CZRJHC P12 10=NOV=77 1 


013746 
052637 


012737 


012777 


005077 


004737 
104401 
0060000 


013711 


SFE 


104032 


055574 
077777 
100000 
055574 


010026 


045770 
177374 
016264 
000000 


000000 
152426 
010000 


152422 


046024 
005123 


015176 
015124 
052514 


015124 


045470 
100000 


MACY11 « ~ Nee 
T65 


055574 


042444 


152440 
152434 


000001 
152424 


015034 
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AD ECC ENABLED 38 


6 Postion OF THE ERROR CAN BE CHANGED BY CHANGING 
“* 
3*THIS CHANGES THE LAST BIT OF THE ECC 


@AWECC2,-(SP)  ;GET LAST ECC 

(SP) ; INVERT ot BITS OF WECC2 

#*C100000,(SP)_ :KEEP BIT 16 

#100000 ,a#WECC2 ;CLEAR BIT 16 IN ECC 

(SP)+,@#WECC2 ;THIS WILL SET BIT 16 IF IT WAS 0 
[OR WILL SET NOTHING IF IT WAS A 1 


#4118. ,a#8$ ; INSERT POSITION REG. 


ARE REGULAR SETUPS 


PC ,@4CLDISK SETUP GENERAL REGISTERS 
#-256.-4.,@RHWC :256. DATA 4 HEADER WORDS 
#RE INTO, wae STARTING ADDRESS OF READ BUFFER 
#0, -(SP)  ;IN LOWER BYTE GET SECTOR 
1(SP) GET TRACK IN HIGHER BYTE 
(SP)+, @RHDST ;TRACK/SECTOR IN RHDST 
#FMT22,@RHOF ;16 BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
[BECAUSE ECC IS NOT GOING 
:TO BE CHECKED 
@RHCA [CYLINDER 0 


PC ,@ACHECKT ;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
,CPHALT CANNOT CONTINUE TESTING IF ANY OF THE 
STOP THE TEST 


@AREFOR ,@R1 ;READ HEADER AND DATA=72 
@4ERFLGS ;CLEAR ERROR FLAG 
PC ,@#COMHD [READ HEADER AND DAT 
71F THERE ARE READ ERRORS THEN 
SECC WILL NOT BE CHECKED 


7*I1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
3*FROM THE ‘‘COMHD’’ ROUTINE THAT MEANS SECTOR GAP, 
i*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

S SBETECTED” HAVE GONE BY AND SYNCS WERE CORRECTLY 

** 


7 *HEADER AND DATA ARE TO BE CHECKED. 

“bt + CHECKING READ DATA THE WRITE FROM BUFFER 
*" WRFROM'' IS FILLED WITH EXPECTED DATA AND 

“ # COMPAR I SONS ARE MADE 


@FERFLGS ANY ERRORS ALREADY THERE 
TST66 BRANCH IF YES 

PC ,@#PUTREG SAVE REGISTERS 

A#DCK ,@A4ER1 ONLY DATA CHECK ERROR SHOULD BE SET 
6$ BRANCH IF YES 

32 332 BIT ECC REGISTER SHOULD BE NON 


SEQ 0149 


ao 
™~N 
wn 


FR FORD FE FO FRE FS AE FRR FE AAA AMAA A MAD IOH 
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6500 ZERO é 
6501 [ONLY 11 OF THE 32 BITS CAN BE SEEN i 
6502 :IN THE PATERN REGISTER i 
6503 K SHOULD BE SET IN RHER? i 
6504 042420 013746 050464 63: MOV @#GECC1,-(SP) CET PATTERN REGISTER i 
6505 042424 042716 174000 BIC #174000, (SP) ‘KEEP ONLY 11 BITS 7 
6506 042430 022637 015064 CMP (SP)+,a#EC2 ‘COMPARE PATTERN REGISTER 7 
6507 042434 001401 BEQ 7$ ‘BRANCH IF GOOD 7 
6908 042436 104032 ERROR 32 :11 BITS OF THE 32 BIT ECC REGISTER INCORRECT i 
| 
6510 042440 004037 051106 7$: JSR RO, @#ECORR :GO TO ECC CORRECTION PROCESS i 
6511 042444 010026 8$: 4118. ‘EXPECTED POSITION REG. WHEN CORRECTION i 
6512 71S COMPLETE ! 
6513 ‘ 
e218 
| 
6516 042446 004737 046214 JSR PC, @#CHECKE :CHECK THAT DVA,RDY,DPR,DRY = 1 i 
6517 042452 104401 005123 TYPE .CPHALT [CANNOT CONTINUE IF THEY DON'T i 
6518 042456 000000 HALT ‘STOP THE TEST AND RESTART PROGRAM i 
6519 042460 012700 015220 MOV RO ‘GETTING READY TO FILL EXPECTED DATA i 
6520 042464 012720 010000 MOV miFnree, (RO)+ =CYLINDER 0 
6521 042470 112746 000000 MOVB #0,-(SP) ‘IN LOWER BYTE GET SECTOR 
6522 042474 112766 000000 000001 MOVB #0,1(SP) ‘GET TRACK IN HIGHER BYTE ! 
6523 042502 012620 MOV (SP) +, (RO)+ *GET TRACK/SECTOR IN BUFFER 
6524 042504 012720 000000 MOV #0, (RO) + ‘KEY1 IN BUFFER 
6525 042510 012720 000000 MOV #0, (RO) + :KEY2 IN BUFFER 
6526 042514 012701 000400 MOV #256. ,R1 ‘DATA WORD COUNTER 
6527 042520 012702 052525 MOV #52525 ,R2 “DATA 
6528 042524 010220 3$: MOV R2, (RO) + DATA INTO BUFFER 
6529 042526 005301 DEC R1 ! 
6530 042530 001375 BNE 3$ soc IF 256 NOT DONE 
6532 :*O0NLY GOOD DATA HAS BEEN PUT IN ‘WRFROM* 
6533 :*NOW THE INSERTED ERROR WILL BE PUT IN | 
6534 :*BUT INSERTED ERROR IS IN ECC SO DATA IS NOT WRONG 
6536 
6537 042532 004737 045470 JSR PC, a#PUTREG :SAVE REGISTERS 
6938 042536 005037 015124 CLR a#ERFLG$ *CLEAR ERROR FLAG 
6540 
iat! :*NOW READ DATA BUFFER WILL BE CHECKED 
6543 042542 004037 046664 JSR RO, @#COMPAR CHECK 
6544 042546 015220 WRF ROM ‘GOOD BUFFER 
6545 042550 016264 RE INTO :TEST BUFFER 
6546 042552 000404 4+256. ‘NUMBER OF WORDS CHECKED 
6547 042554 042562 4$ “RETURN POINT FOR ERROR HEADER 
6548 042556 042566 5$ ‘RETURN POINT FOR ERROR DATA 
6549 042560 042572 TST66 SRETURN FOR GOOD COMPARISON 
6550 042562 104004 4$: ERROR 4 3READ NEXT ERROR 
6551 042564 000207 RTS PC SRETURN TO ‘'COMPAR'' 
6552 042566 104005 S$: ERROR 5 ‘WORD NOS 1 TO 4 ARE 
6553 HEADER WORDS 
6554 5 TO 260 ARE DATA WORDS 
6555 042570 000207 RTS PC ‘RETURN TO ''COMPAR 
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6556 


o 
™ 
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ale) 
NN 
DD 


000004 TST66: SCOPE 
012706 000 MOV #STACK, SP RESET STACK 
012737 017330 MOV MTTNO,Q4TSTNM = ;THIS SAVES TEST NUMBER 


;*SETUP FOR WHAT IS TO BE READ 
[*HEADER CRC IS RESTORED FROM A SUBROUTINE 


012746 052525 #52525 ,-(SP) sDATA TO BE READ 
000400 #256. ,R5 TER 
054572 #D1ISK,RO START OF SIMULATED DISK DATA 
: al , (RO) + :MOVE IN DATA ON TO SIMULATED DISK 


: COUNT 
1$ : BRANCH IF 256 NOT COMPLETE 
(SP) + UNDO --(SP) 
(RO)+, —_* UN ay TWO ECC WORDS 


14 TOLERANCE GAP 
SCLEAR DATA GAP, AND 

S TOLERANCE GAP 

;BRANCH IF NOT COMPLETE 


SN NS NN NS SS SSS NS 


051260 PC ,@4F ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
: IN THE CORRECT PLACE 


ARE FOR ECC TEST ONLY 


177777 ~=015142 #~-1 ,AATSECC ;THIS IS AN ECC TEST 
a4POSITI CLEAR ERROR POSITION COUNTER 
050474 @ANCODE ,AANCOUNT ; 


050506 @AHARDER , 4 HAD TMP D 

sECC LOW ORDER TO BE GENERATED 
;ECC HIGH ORDER TO BE GENERATED 
CLEAR DATA ENVELOPE CLOCK COUNT 

005037 a4ZCODE ;CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


012737 052654 FMT 22 ,@ACYL 716 BITS PER WORD 
CYLINDER 0, FORMAT 16 BITS 
112737 052657 #O,QASECOTR+1 ; TRACK 0 
#0 ,a#SECOTR SECTOR 0 
-@AKEY1 7KEY1=0 
sKEY2=0 


#0. aAKEY2 : 

052734 #256. ,a#DAWORD :NO. OF DATA WORDS 
aAx ‘THIS IS A READ COMMAND 
RS, a#CRC 7GO TO CALCULATE CRC 


054554 


*THIS IS TO INSERT ERROR 
[*THE DISK DATA IS IN LOCATION STARTING FROM 'DISK* 
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012737 152652 
012737 052532 
012737 010040 


151676 


015176 
015124 
052514 


015124 
045479 
100000 


013746 
042716 
022637 


054636 
054640 
043170 


151714 
151710 


000001 
151700 


015034 
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READ ECC ENABLED 


;*THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 


;*THIS MOVE 


#152652, BADISK+44; pe ad oes POSITION 296 THRU 304 
#52532, a#D1SK+46; INSERT ERROR seins 305 THRU 308 


#4128. ,a#8$ 


IN WORD NUMBER 
INSERT POSITION REG. 


ARE REGULAR SETUPS 


Ae pe 


#FMT22, @RHOF 


@RHCA 
PC ,@ACHECKT 
, CPHALT 


@FREFOR ,@R1 
aFERFLGS 
PC ,a@#COMHD 


SETUP GENERAL REGISTERS 

7256. DATA 4 HEADER WORDS 
STARTING ADDRESS OF READ BUFFER 
7 IN LOWER BYTE GET SECTOR 

;GET TRACK IN HIGHER BYTE 

; TRACK/SECTOR IN RHDST 

716 BITS PER WORD 

ECC CORRECTION NOT INHIBIT 
s;BECAUSE ECC IS NOT GOING 


:TO BE CHECKED 

ZCYLINDER 0 

spe DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
T CONT INUE TESTING IF ANY OF THE 


: LAG 

;READ HEADER AND DATA 

IF THERE ARE READ ERRORS THEN 
sECC WILL NOT BE CHECKED 


;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE ‘'COMHD’* ROUTINE THAT MEANS SECTOR GAP, 
:*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
:*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 


> *DETECTED 


;*HEADER AND DATA ARE TO BE CHECKED. 
ssIN CHECKING READ DATA THE WRITE FROM BUFFER 
WRFROM'' IS FILLED WITH EXPECTED DATA AND 


‘ # COMPAR I SONS ARE MADE 


@FERFLGS 
TST67 

PC ,a@#PUTREG 
> amma 


32 


@4GECC1,-(SP) 
#174000, (SP) 
(SP)+,aM#EC2 


ANY ERRORS ALREADY THERE 
CH IF YES 


;BRAN 
SAVE REGISTERS 
: ONLY a Sg ERROR SHOULD BE SET 


BRANCH IF YE 
egg Bit ECC REGISTER SHOULD BE NON 


32 
ONLY 11 OF THE 32 BITS CAN BE SEEN 
i IN THE Bey; REGISTER 
DCK SHOULD BE SET IN RHER1 
“GET PATTERN REGISTER 
[KEEP ONLY 11 BITS 
COMPARE PATTERN REGISTER 


SEQ 0153 


IN NSN ON ON NN SN NON SON ON NOSSO OOO 
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CZRIHC.P12 


043160 
043162 


043164 
043170 


10-NOV-77 


001401 
104032 


004037 
000000 


004737 
022737 


001401 
104036 


001375 


012737 
012737 


004737 
005037 


046214 
005123 


015220 
010000 
00000 


000000 
000000 


000400 
052525 


152652 
052532 


MACY11 30A(1052) 
T66 


015034 


000001 


015274 
015276 
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READ ECC ENABLED 3C 


BEQ 7$ 
ERROR 32 


JSR RO, a@#E CORR 
- WORD 


PC ,@#PUTREG 
#DCK!ECH, @#ERI 


9$ 
36 


PC ,@#CHECKE 
-CPHALT 
POIFMT23. ¢RO) + 
#0,-(SP) 


#0,1(SP) 
(SP)+, (RO)+ 


;BRANCH IF GOOD 
311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


:GO TO ECC CORRECTION PROCESS 
EXPECTED POSITION REG. WHEN CORRECTION 
71S COMPLETE 


SAVE REGISTERS 

:WITH ERRORS INSERTED IN BIT POSITION 21 
;THRU 32 HARD ERROR BIT SHOULD SET 

BRANCH IF GOOD 

WITH ERROR INSERTED IN BIT POSITION 21 THRU 
332 HCE SHOULD SET 


CHECK THAT DVA,RDY,.DPR,DRY = 1 
[CANNOT CONTINUE IF THEY DON'T 

STOP THE TEST AND RESTART PROGRAM 
;GETTING READY TO FILL EXPECTED DATA 
CYLINDER 0 

7 IN LOWER BYTE GET SECTOR 

[GET TRACK IN HIGHER BYTE 

:GET Oe atte IN BUFFER 


SKEY1 IN BUFF 

;KEY2 IN BUFFER 
;DATA WORD COUNTER 
DATA 

ee BUFFER 


; COUN 
;BRANCH IF 256 NOT DONE 


:*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM' 
;*NOW THE INSERTED ERROR WILL BE PUT IN 


MOV #152652, ae INSERT ERROR IN tae BS 296 THRU 304 


R 19 


IN WORD NUMB N 
MOV #52532, anunrRoms56; INSERT ERROR IN POSITION 305 THRU 308 


JSR PC ,a#PUTREG 
CLR @#ERFLGS 


D NUMBER 20 IN DATA 


SAVE REGISTERS 
;CLEAR ERROR FLAG 


:*NOW READ DATA BUFFER WILL BE CHECKED 


RO, a4 COMPAR 


7 CHECK 


:GOOD BUFFER 

; TEST BUFFER 

:NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 


;RETURN FOR GOOD COMPARISON 


SNES NNN NNN Oo 
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104004 4$: ;READ NEXT ERROR 
000207 ;RETURN TO *‘COMPAR"’ 
104005 5$: ;WORD NOS 1 TO 4 ARE 
eK WORDS 
5 TO 260 ARE DATA WORDS 
000207 [RETURN TO ‘'COMPAR’ 


? 
7, 
7 
7, 
7, 
7, 
rs 
7, 
7, 
4 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
r J 
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043350 000004 TST67: SCOPE 
043352 012706 MOV #STACK, SP RESET STACK 


043356 012757 017330 MOV MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 


;*SETUP FOR WHAT IS TO BE READ 
;*HEADER CRC IS RESTORED FROM A SUBROUTINE 


012746 052525 #52525 ,-(SP) DATA TO BE READ 
000400 #256., ; COUNTER 
054572 #DISK,RO START OF SIMULATED DISK DATA 
(SP) (ROD + :MOVE IN DATA ON TO SIMULATED DISK 


: COUNT 
1$ ;BRANCH IF 256 NOT COMPLETE 
(SP) + ;UNDO -(SP) 
(RO) +, (RO)+ ; JUMP OVER THE TWO ECC WORDS 
15.,R5 31 DATA GAP 

314 TOLERANCE GAP 
(RO)+ ;CLEAR DATA GAP, AND 
R5 ; TOLERANCE GAP 
2$ ;BRANCH IF NOT COMPLETE 


004737 051260 PC ,@4FILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
IN THE CORRECT PLACE 


ARE FOR ECC TEST ONLY 


012737 177777 015142 #~-1 ,@ATSECC ;THIS IS AN ECC TEST 
a4POSITI ;CLEAR ERROR POSITION COUNTER 
050474 @ANCODE ,AANCOUNT ; TEMPORARY N-CODE COUNTER 

050506 @4HARDER ,@#HADTMP ; TEMPORARY HARD ERROR COUNTER 

C 7ECC LOW ORDER TO BE GENERATED 
;ECC HIGH ORDER TO BE GENERATED 
CLEAR DATA ENVELOPE CLOCK COUNT 
050504 a47ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO SETUP FOR DISKLESS USE ONLY 


012737 052654 AFMT22 ,aACYL 316 BITS PER 


WORD 
7CYLINDER 0, FORMAT 16 BITS 
112737 000000 052657 #0,a@#SECOTR+1 TRACK 0 
#0 ,a4SECOTR 


#0. QAKEY2 SKEY2=0 
052734 #256.,@4DAWORD :NO. oF _DATA WORDS 
aAx ‘THIS IS A READ COMMAND 
RS, a#CRC G0 to. CALCULATE CRC 


054554 


7 
7 
7 
7, 
7, 
4 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
2 
? 
? 
? 
7 
? 
7 
? 
? 
7 
7 
7 
7 
7 
? 
7 
7 
7 
7 
7 
? 
7 
7 
7 
7 
i 
i 
i 
y 
/ 
? 


i*THIS IS TO INSERT ERROR 
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012757 
012737 
012737 


005077 


004737 
104401 
000000 


013711 
005037 
0047737 


005737 


013746 
042716 


151120 
046024 
005123 


015176 
015124 
052514 


015124 


045470 
100000 


050464 
174090 


MACY11 30A(1052) 
167 


054574 


015034 


B 13 
salp tot be 11: ‘*. PAGE 159 


AD ECC ENABLED 


z*THE DISK DATA IS_IN LOCATION STARTING FROM DISK‘ 
gaThe POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
:* 


#152525,aaDISK+2 ;FORCE ERROR ON BIT NUMBER 32 
#152525. aaDISK+<255.#2>;FORCE ERROR IN BIT 4096 
#4128. ,aa8$ ; INSERT POSITION REG. 


ARE REGULAR SETUPS 


PC ,a#CLDISK :SETUP GENERAL REGISTERS 
#-256.-4.,@RHWC 2256. DATA 4 HEADER WOR 
WREINTO,@RHBA  : STARTING ADDRESS OF READ BUFFER 
#0,-(SP) ‘IN LOWER BYTE GET SECTOR 
#0.1(SP) ‘GET TRACK IN HIGHER BYTE 
(SP)+, @RHDST :TRACK/SECTOR IN RHDST 
#FMT22,@RHOF §§ ;16 BITS PER WORD 
SECC CORRECTION NCT INHIBIT 
“BECAUSE ECC IS NOT GOING 
[TO BE CHECKED 
@RHCA *CYLINDER 0 


PC ,@A#CHECKT CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
~CPHALT ; CANNOT CONTINUE TESTING IF ANY OF THE 
[STOP THE TEST 


@AREFOR ,@R1 #READ HEADER ny DATA=72 
@FERFLGS LAG 

PC ,a@#COMHD TA 

;1F THERE ARE READ ERRORS THEN 
ECC WILL NOT BE CHECKED 


;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 


;*FROM THE ‘'COMHD’’ ROUTINE THAT MEANS SECTOR GAP, 

:*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

>*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

> *DETECTED 

;*HEADER AND DATA ARE TO BE CHECKED. 

:*IN CHECKING READ DATA THE WRITE FROM BUFFER 
WRFROM’’ IS FILLED WITH EXPECTED DATA AND 

; # COMPAR SONS ARE MADE 


@4ERFLGS sANY ERRORS ALREADY THERE 
TST7 BRANCH ” YES 


PC ,@APUTREG SSAVE REGISTERS 
r> eee : ONLY ge: CHECK ERROR SHOULD BE SET 


6 BRANCH IF YES 
32 +: ECC REGISTER SHOULD BE NON 


[ONLY 11 OF THE 32 BITS CAN BE SEEN 
7 IN THE PATERN REGISTER 
3DCK SHOULD BE SET _IN RHER1 
@AGECC1,-(SP)  ;GET PATTERN REGISTER 
#174000, (SP) KEEP ONLY 11 BITS 


SEQ 0157 





C2 
C2 


CZRJHCO,RP04/5/6 DSKLS cmt 
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043732 
043736 
043740 
043742 
043746 


10-NOV-77 1 


022637 


004737 
022737 


001401 
104036 


012737 
012737 


005037 
004737 


015064 


051106 


045470 
100100 


046214 
005123 


015220 
Aa 
000000 


000000 
000400 
052525 


152525 
152525 


015124 
045470 


046664 


MACY11 30A(1052) 
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015034 


000001 


015232 
016226 


7$: 
8$: 


9$: 


3$: 


4$: 


C 13 
27-JUL=78 11:16 PAGE 160 SEQ 0158 
READ ECC ENABLED 3D 


CMP 
BEQ 
ERROR 


JSR 


(SP)+,aM#EC2 
7$ 
32 
RO, @4#E CORR 


PC ,@#PUTREG 
#OCK!ECH,@WER1 


9$ 
36 


PC ,@A#CHECKE 
HAL T 


mOiFni2s, ea0)+ 
#0,-( 

#0. 1(3P) 
(SP)+, (RO) + 


R1 
3$ 


seen IF GOoD” REGISTER 
311 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
:GO TO ECC CORRECTION PROCESS 


EXPECTED POSITION REG. WHEN CORRECTION 
31S COMPLETE 


SAVE REGISTERS 
[WITH ERRORS INSERTED IN BIT POSITION 32 
SAND 4096 HARD ERROR BIT SHOULD SET 


BRANCH IF GOOD 
WITH ERROR INSERTED IN BIT POSITION 21 THRU 
332 HCE SHOULD SET 


+ CHECK THAT DVA,RDY,DPR,DRY = 1 


HE 
“GETTING READY TO FILL EXPECTED DATA 
CYLINDER 0 
TIN LOWER BYTE GET SECTOR 
GET TRACK IN HIGHER BYTE 
:GET i aahie IN BUFFER 


:DATA TA WORD COUNTER 
‘DATA INTO BUFFER 

; COUNT 

;BRANCH IF 256 NOT DONE 


:*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM’ 
;*NOW THE INSERTED ERROR WILL BE PUT IN 


#152525 ,@MWRFROM+<5*2> ; INSERTED ERROR IN BIT 32 
#152525 ,a#WRFROM+<259.*2> ; INSERT ERROR IN BIT 4096 


MOV 
MOV 


CLR 
JSR 


@aFERFLGS 
PC ,@#PUTREG 


ZCLEAR ERROR FLAG. 
[SAVE REGISTERS 


;*NOW READ DATA BUFFER WILL BE CHECKED 


RO, a4 COMPAR 


; CHECK 
; GOOD ph os (CHANGED) 


NUMBER OF WORDS CHECKED 

#RE TURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 

RETURN FOR GOOD COMPARISON 

;READ NEXT ERROR 


CZ 
C2 


CZRJHCO, Saag DSKLS yrs 
CZRJHC.P12 


C.P 


10=NOV-77 


044120 000207 
044122 104005 


044124 000207 


D 13 
MACY11 ee 27-JUL-78 11: 45 PAGE 161 SEQ 0159 


READ ECC ENABLED 


RTS PC 
5$: ERROR 5 


RTS PC 


;RETURN TO *'COMPAR"’ 
;WORD NOS 1 TO 4 ARE 

+ ¥ WORDS 

:5_TO 260 ARE DATA WORDS 
;RETURN TO ‘'COMPAR"’ 





ana 


Nm 
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-SBTTL CURSORY INTERRUPT LOGIC TESTS 


000004 


012737 017330 ATTNO,@ATSTNM = ;THIS SAVES TEST NUMBER 
27 ASTACK , SP RESET STACK 


PC, a#CLDISK ZCLEAR DISK 
@ARPVEC RO 7GET VECTOR ADDRESS 
#RPTRP1.(RO)+  :SET INTERRUPT VECTOR 
#340, (RO) *SET SERVICE ROUTINE PRIORITY 
177776 #200.PS ‘SET PROCESSOR PRIORIT 
ARDY‘ IE,aR1 ‘RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 
001200 a4T IMCNT ,a#$TMP1 = COUNTER 
a4STMP1 [WAIT FOR INTERRUPT 


1$ ‘BRANCH IF NOT ZERO 
BEF ORE THIS IS ZERO INTERRUPT SHOULD 
045470 PC ,@#PUTREG *SAVE REGISTERS 
21 ‘ INTERRUPT DID NOT OCCUR 


TST71 é BRANCH TO NEXT TEST 


RPTRP1: (SP) +, (SP) + RESTORE STACK 
045470 J PC ,@4PUTREG Tee REGiSTERS 


004200 015032 A#DVA!RDY ,@#CS1 
TST71 BRANCH IF 
104021 21 S INTERRUPT OCC\IRRED BUT 
:'IE* FAILED TO FSET 





C2 
C2 
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000004 


012737 017330 MTTNO,Q@ATSTNM = ;THIS SAVES TEST NUMBER 
ASTACK , SP RESET STACK 


PC ,@#CLDISK CLEAR DISK 

@ARPVEC ,RO ;GET VECTOR ADDRESS 
ARPTRP2, (RO) + 

oto” (RO) 


177776 P ; IORIT 
#RDY'IE,aR1 sRDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 
001200 @ATIMCNT ,a#STMP1 : COUNTER 
a4$TMP1 ;WAIT FOR at ao 
1$ BRANCH IF NOT ZERO 
SBEFORE THIS IS ZERO INTERRUPT SHOULD 


Py 


UR 
TST72 : NO INTERRUPT SO BRANCH 


022626 RPTRP2: (SP)+, {SP)+ RESTORE STACK 

004737 J PC ,,@#PUTREG SAVE REGISTERS 

104021 21 ; INTERRUPT OCCURRED WITH 
;PROCESSOR STATUS SAME 
sAS DISK 
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CZRJHC P12 


10-NOV=-77 


000004 
012737 
004737 


012737 


000137 


000001 
045770 
000000 
044364 
015112 
044452 
001112 
001112 


001102 
015120 


001100 
044671 
001100 


044666 
022642 


015114 


015112 
015072 


015112 
022642 


MACY11 30A(1052) 
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001212 


177776 


TST72: 


+ oe tn -78 


END 


SCOPE 
MOV 


DRIVE 


#1, $TINES 
PC ,@4CLDISK 


#0,PS 
,65$ 


64$ 
@AUNIT = (SP) 
,67$ 

66$ 
@ASERTTL,~(SP) 


@4SERTTL 
a4$TSTNM 
@ASELECT 
3$ 


@a4SPASS 
. SENDMG 
@4SPASS ,- (SP) 


. SENULL 
a4TST5 


@4NOUNI TS 
$EOP 
QFUNIT,RO 
#UNITS,R1 
(R1)+,RO 
2s 


1$ 
(R1) ,aA#UNIT 
aA4TSTS 


G 13 
11:16 PAGE 164 


:;D0 1 ITERATION 


;REINSTATE PS TO 0 

72 TYPE ASCIZ STRING 

3;GET OVER THE ASCIZ 

;GET READY TO TYPE UNIT NUMBER 


3zTYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
;GET READY TO TYPE NUMBER OF ERRORS 


CLEAR TOTAL NUMBER OF ERRORS 
ST NUMBER 


STEST NEXT DRIVE IF SO 


; INCREASE PASS COUNT 
;TYPE END PASS # 


;CONTINUE TESTING THIS DRIVE 


NO. OF UNITS PRESENT DECREMENTED 
;BRANCH IF ALL DRIVES COMPLETE 
;UNIT UNDER TEST 


; TABLE 

31S THIS UNIT JUST TESTED 
BRANCH IF YES 

;BRANCH IF NO 

THIS IS NEXT UNIT 

; TEST NEXT DRIVE 


SEQ 0162 
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007100 


000 


END OF DRIVE 


.SBTTL 
-SBTTL *#*SUBROUTINES*** 
L 


STSTNM 7: ZERO THE TEST NUMBER 

STIMES eR THE NUMBER OF ITERATIONS 
$PASS : INCREMENT THE PASS NUMBER 
#100000, $PASS :;DON'T ALLOW A NEG. NUMBER 
(PC) + i: OOP? 


D 
SEOPCT: .WOR 


$DOAGN i7YES 
(PC) +,a(PC)+ ; RESTORE COUNTER 
SENDCT: . 1 


. SENDMG 7 TYPE ‘END PASS #°° 
$PASS ,-(SP) ESAVE SPASS FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 
7-TYPE A NULL CHARACTER 
$GET42: 2iGET MONITOR ADDRESS 
;BRANCH IF NO MONITOR 


SENDAD : PC, (RO) 


a(PC)+ 
SRTNAD: . TST1 
SENULL: . -1.-1,0 ;;NULL CHARACTER STRING 


042412 042116 $ENDMG: . <15><12>/END PASS #/ 


051501 


020123 


3 *HERE S A ey EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
;*ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 
;*PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST. 


;*WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
;*THE PROGRAM GOES BACK TO CAN BE CHANGED. 

:*THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: 

:*1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

;*2. LOOP ON ERROR SWITCH MUST BE SET 

3*3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

;*IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
;*THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
;*TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
;*THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
:*COMES TO THE END OF THE TEST UNDER CONSIDERATION. 
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-* 
;*AFTER LOOPING FOR SOfté TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
7*NORMAL OPERATION Witl CONTINUE. 


TESTAD: 0 FIRST ADDRESS OF TEST 


OPERSEL: 
177776 CLR PS MAKE PROCESSOR STATUS ZERO 
044722 TYPE ,65$ 23 TYPE ASCIZ STRING 
BR 64$ 3GET OVER THE ASCIZ 
017330 MOV @ATSTNM,-(SP)  :GET READY TO TYPE TEST 
TYPOC :NUPBER 
045000 TYPE .67$ TYPE ASCIZ STRING 
BR 66$ =:GET OVER THE ASCIZ 
001110 a @FSLPERR,-(SP) GET READY TO TYPE LOOP BACK PC 
Y 
001223 TYPE . 
045050 TYPE 69% 32 TYPE ASCIZ STRING 


045132 


045200 : fe 
:iGET OVER THE ASCIZ 


000002 GET LPADR 
001106 


045266 75$ zi TYPE ASCIZ STRING 
BR $ ::GET OVER THE ASCIZ 

045332 sz TYPE ASCIZ STRING 
:iGET OVER THE ASCIZ 


001110 MO (SP)+,@4$LPERR ;GET LPERR 
013746 001106 MOV @FSLPADR, ~ (SP) 
:THIS CLEARS UP GARBAGE 
005037 052770 CLR @4NOS YNC ;CLEAR FLAG FOR HEADER ERROR COMMANDS 
005037 015142 CLR a4 TSECC ;CLEAR FLAG FOR ECC TEST 
WHEN =177777 IT IS AN ECC TEST 
WHEN =O IT IS NOT AN ECC TEST 


005037 050470 CLR @4TSECCG EVEN IN AN ECC SS sas CLOCK 


i DO NOT GENERATE ECC 
005037 015144 CLR @4TESDTE “DRIVE TIMING ERROR TEST 
000002 RTI 
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014750 
015024 
000023 


J 13 
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-SBTTL SAVE REGISTERS ROUTINE 


THIS SAVES THE CONTENTS OF ALL A en REGISTERS 
zIN MEMORY LOCATIONS TAGED FROM ‘WC'' "ete 


“THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
AND NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 
ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


PUTREG: 
RO,-(SP) ;zPUSH RO ON STACK 
7ZzPUSH R1 ON STACK 
37PUSH R2 ON STACK 
; STARTING ADDRESS OF REG 
AWC ,R1 sSTARTING ADDRESS OF SAVE LOCATIONS 
ARHCC-RHWC+2/2, R2 ;NUMBER OF REG. mor ° R2 
2 ea (R1)+ ; SAVE HARDWARE REG 


R 
10$ 
(SP)+,R2 3zPOP STACK INTO R2 
(SP)+,R1 3:POP STACK INTO R1 
(SP) +,RO ;zPOP STACK INTO RO 
PC 


SEQ 0165 


aon 
NSN 
mw 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
‘ 
i 
( 
i 
i 
i 
4 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
( 
‘ 
‘ 
‘ 
| 
| 
| 
‘ 
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-SBTTL FLOAT * AND 0 


:*FLOAT A ONE AND A ZERO THRU A DESIGNATED 4 yee 
;*ABSOLUTE ADDRESS OF REG. UNDER TEST IS INR 


000000 : 7B11S UNDER TEST 
000000 : ERROR HLT ADDRESS 
000000 : 


012537 : sFETCH DATA MASK 
MO RG :GET ADDRESS OF REG. UNDER TEST 


;GET ERROR RETURN ADDR. 

[MODIFY RETURN ADDR. TO JUMP OVER RTS 
INITIALIZE DATA PATTERN 

;OQUTPUT FLOATING ZERO 

ZOUTPUT FLOATING ONE 


SHIFT PATTERN 


BRANCH IF NOT COMPLETE 
ZRETURN TO TEST 
: R3 ; COMPLEMENT PATTERN 
045750 MO MBLT3, @ALAD ;SET SCOPE LOOP 
R3,@4SGDDAT + STORE GOOD DATA 
aAMASK AND MASK yes PATTERN 
001124 @AMASK , @#SGDDAT; CLEAR THE R 
RESTORE MASK 


@4MASK 
@ASGDDAT , (R4) SQUTPUT TO REGISTER 
(R4),aW$BDDAT INPUT FROM REGISTER 


a4MASK 

001126 @4MASK ,AASBDDAT ;AND MASK OUT RECEIVED DATA 
@4MASK ;RESTORE MASK 

001126 ener . arseppat :1s a CORRECT 


ANCH IF GOOD 
177630 “ @LERR ;GO TO REPORT ERROR 


- ;LOCAL SCOPE LOOP 
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-SBTTL CLEAR MEMORY ROUTINE 


THIS CLEARS ANY BLOCK OF MEMORY 
FILLING IT WITH ANY DATA 


CALL 
= RO,CLAREA 


Y 
Z ;DATA TO BE FILLED 
aR WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
:*R2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS 
[*R3 WILL HAVE DATA TO BE FILLED 
:*TO AVOID DIVIDE ROUTINE TWO DECREMENT R2 WILL BE USED 


CLAREA: 
010146 MOV R1,-(SP) ;7PUSH R1 ON STACK 
3;PUSH R2 ON STACK 
:7PUSH R3 ON STACK 
OM 


STARTING ADDRESS OF BLOCK 


iDATA 

;NO. OF LOCATIONS MINUS TWO 
;GET TWICE NO OF LOCATIONS 
;MOVE IN DATA 


;BRANCH IF NOT COMPLETE 
:zPOP STACK INTO R3 
y :zPOP STACK INTO R2 
(SP)+,R1 ;:POP STACK INTO R1 
RO ;RETURN 


a ee tet Re IRI RII RII RI RII RI RII WII NI IN IN 
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.-SBTTL LOCAL TRAPS 
000000 LAD: 0 


032777 0019000 133160 T.SCOP: BIT #SWO9, aSWR 
001402 BEQ 1$ 

013716 045750 MOV @ALAD, (SP) 
000002 1$: RTI 


7 *EXAMPLE OF THE USE OF THE ABOVE 
z*THIS WILL LOOP BETWEEN X: AND SCOP1 PROVIDED THERE IS NO ‘NEWTST"’ 
; *MOV aX, @4LAD 


) --- 


CLEAR DISK ROUTINE 


013701 014756 CLDISK: @ARHCS1,R1 7R1 WILL BE CONTROL AND STATUS1 
MO @ARHCS2,R2 ;R2 WILL BE CONTROL AND STATUS2 
@ARHDS1 ,R3 ;R3 WILL BE DISK STATUS REGISTER1 
014760 @ARHER1 ,R4 3R4 WILL BE ERROR REGISTER #1 


000040 ACLR,AR2 ;CLEAR ALL REG. 
015112 > alta ;REINSTATE UNIT NO. 


ec CLEAR FUNCTION BITS 


siete IN NN 
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CZRJHC P12 


10-NOV-77 


011637 
wpe 


0047 
022737 
001423 
032737 
1004 


00 
010137 
104026 


000413 
032737 


104026 


000207 
062716 


11:09 


015132 
000004 
045470 
004200 


004000 
001122 


000200 
001122 


001122 


01505% 
001100 
000600 


000400 
001122 


000200 
001122 


001122 


015132 
015032 


015032 


015032 


015054 


015054 


30A (1052) 


27-JUL-78 


CLEAR DISK ROUTINE 


rely ALSO CHECKS THAT ALL OTHER 


CHECKT: 


4$: 


N 13 
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SEQ 0169 


-SBTTL CHECK DISK STATUS ROUTINES 
my CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 


MOV 
SUB 


(SP) ,a#PCJSR 
#4 ,aAPCISR 
PC ,@#PUTREG 


#DVA!RDY ,@ACS1 


3$ 
os 
R1,@4$8DADR 
26 


3$ 

ARDY ,a@ACS1 
2$ 
R1,@4$8DADR 
26 


3$ 
R1,@a4$BDADR 
26 


a4DS1,-(SP) 


A#VV!PROG, (SP) 
* aiongiekcs Bh 


ors.aee 
R3,@4$BDADR 
26 

7$ 

#DRY ,@ADS1 
6$ 
R3,a4$BDADR 
26 


7$ 
R3,Q4$BDADR 
26 


PC 


AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 = 1 
BITS IN THESE REGISTERS = 0 


SAVE PC OF JSR+4 

GET PC OF JSR 

SAVE REGISTERS 

RHCS1 SHOULD HAVE DEVICE AVAILABLE 
AND BE READY 

;BRANCH IF GOOD TO RHDS1 CHECK 


;BAD SO TEST DEVICE AVAILABLE 
TEST READY IF DVA THERE 
SADDRESS OF BAD REGISTER (RHCS1) 
:RHCS1 DID NOT HAVE DEVICE 


SAVAILABLE AT START OF TEST 
;BRANCH TO RHDS1 CHECK 


TEST READY 

IF RDY THERE BRANCH 

TADDRESS OF BAD md ge byt (RHCS1) 
;RHCS1 DID NOT HAVE R 

zAT THE START OF TEST. 

BRANCH TO NEXT COMPARE 

;ADDRESS OF BAD REGISTER (RHCS1) 
;RHCS1 HAD SOME BITS OTHER 

; THAN DVA AND RDY SeT 

TALL OTHER BITS SHOULD BE 0 

zAT START OF TEST 


GET RHDS1 

;CLEAR VV AND PROGRAMASLE BIT 
[RHDS1 SHOULD HAVE THESE SET 
RETURN TO TEST IF GOOD 


;BAD SO TEST DRIVE PRESENT 
CHECK DRY IF GOOD 


zADDRESS OF BAD REGISTER (RHDS1) 
[RHDS1 DOES NOT HAVE DPR 
BRANCH OUT 


TEST DRIVE READY 

SIF DPR WAS THERE SO BRAN 
SADDRESS OF BA robe ight on (RHDS1) 
;RHDS1 DOES NOT HAVE DRY 

BRANCH OUT 


;ADDRESS OF BAD REGISTER (RHDS1) 
;RHDS1 HAS SOME B! THER 


; THAN MOL, DRY, 

zALL OTHER BITS SHOULD BE 0 

;RETURN TO TEST AND HALT ~ FATAL ERROR 
;ADJUST STACK PTR TO GET OVER HALT IN TEST 


Sw www ws ws NNN NSN NSO 





CZRJHCO ,RPO4/5/6 DSKLS 5c mune 


CZRIMC P12 10=NOV=77 
046212 000207 


011637 
162737 
004737 
032737 
001004 
010137 
104026 
000427 
032737 
001004 
010137 
104026 
000417 
032737 
001004 
010337 
104026 
000407 
032737 
001004 
010337 
104026 
000207 


062716 
000207 


177777 


012 
013737 


015132 
000004 
045470 
000200 


001122 


046340 


MACY11 


015132 
015032 


015032 


015054 


015054 


001204 


001202 


30A(1052) 27=JUL=78 11:1 
CHECK DISK STATUS ROUTINE 


RTS PC ;RETURN 70 TEST AND CONTINUE TESTING 


81 
: BAGE 172 SEQ 0170 


z*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 
[*AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 = " 
3*1T DOES NOT CHECK THAT OTHER BITS IN THESE REGISTERS = 0 


CHECKE: MOV (SP) ,a@#PCISR SAVE PC OF JSR+4 
SUB aAPC GET PC OF JSR 
SAVE REGISTERS 
#RDY ,aACS1 sRHCS1 SHOULD HAVE DEVICE AVAILABLE 
BE READY 


1$ ;BRANCH IF GOOD 

R1,@4$8DADR sFAILING REGISTER 

26 ;RHCS1 IS IN ERROR 
;DOES NOT HAVE DVA, RDY 

4$ ;BRANCH 


ADVA,@ACS1 zRHCS1 SHOULD HAVE DEVICE AVAILABLE 
BE READY 


7 AND 

2s BRANCH IF GOOD 

R1,@4$BDADR FAILING REGISTER 

26 >RHCS1 IS IN ERROR 
:DOES NOT HAVE DVA, RDY 
BRANCH OUT 


4$ 

#DRY ,@ADS1 ;RHDS1 SHOULD HAVE DPR,DRY 
3$ BRANCH IF THERE 

R3,24$BDADR sFAILING REGISTER RHDS1 

26 OS =. NOT HAVE DPR,DRY 


4$ ;BRANCH OU 

ADPR ,@ADS1 ;RHDS1 SHOULD HAVE DPR,DRY 

5$ BRANCH IF THERE 

R3,@4$3DADR SFAILING REGISTER RHDS1 

26 ;RHDS1 DOES NOT HAVE DPR,DRY 

PC ;RETURN TO TEST AND HALT - FATAL ERROR 


#6, (SP) ;ADJUST STACK TO GET OVER HALT IN TEST 
PC RETURN TO TEST AND CONTINUE TESTING 


-SBTTL WAIT LOOP 

WAIT LCOP 

ONE LOOP OR ONE COUNT = 5.15 MICROSEC WITH BIPOLAR MEMORY (MIN) 
ONE LOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN) 

WITH CORE ERROR IS INDICATED AFTER ABOUT 650 MILLISEC (MIN) 


: 177777 WAITING COUNT 
RO,~(SP) 


;SAVE RO 
GET ADRESS "sth 3. ADDRESS 


7 WA FOR TYPEOUT 
SWAIT REGISTER ADDRESS 
:WAIT ON BIT 

:RESTORE RETURN ON STACK 


)+,RO ;RESTORE RO 
@ATIMCNT ,@#STMP2; TEMPORARY COUNT 
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033777 001200 132562 1$: @ASTMP’ ,AaSTMPO ;1S REQUIRED BIT THERE? 
2 BRANCH IF YES 
001202 a4STMP2 ; COUNT 
1$ ;BRANCH IF NOT TIME UP 
046340 001202 @4TIMCNT ,@#STMP2; TEMPORARY COUNT 
001200 132536 : @4STMP1,aSTMPO ;1S REQUIRED BIT THERE? 
BRANCH IF YES 


2$ 
001202 aASTMP2 ; COUNT 
$ IF NOT TIME UP 


3 ;BRANCH 
132522 001126 MOV = lca @#SBDDAT ;REGISTER CONTENTS 
16 ;WAITED ON BIT FAILED TO SET 


Nm 
w 


CALL FOR THE ABOVE WAITLOOP IS 


MOV aA , DAX$ 3A_CONTAINS REGISTER ADDRESS 
od . ws ;HENCE X$ WILL HAVE ABSOLUTE REG. ADR. 


x 
wn 


ABSOLUTE REG. ADDRESS UNDER WAIT 
;BIT WAITED FOR 
; CONT INUE 


* 
* 
* 
* 
* 
* 
* 
* 
* 
3* 
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-SBTTL SAVE ROUTINE 


THIS IS A SUBROUTINE TO READ & rey REGISTERS 
7 IN_THE REGISTER TABLE TO ANY LOCATION 

:THE CALL IS 

: JSR RO, @4SAVER 


OF WORDS SAVED 


010146 MO R1,-(SP) ;7PUSH R1 ON STACK 
;ZPUSH R2 ON STACK 
7zPUSH R3 ON STACK 
7; FROM 

370 

NUMBER 

;SAVE REGISTER CONTENTS 
: COUNT 

“BRANCH IF NOT DONE 

+ POP STACK INTO R3 


33:POP STACK INTO R2 
+ ia ls 3¢POP STACK INTO R1 


-SBTTL WRITE CHECK ROUTINE 


THIS IS A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA 
CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 


; THESE ARE TO SET UP FOR DISKLESS USE ONLY 


012737 052654 WRCHHD: MFMT22 ,@ACYL zCYLINDER 0 FORMAT 16 BIT WORDS 
052657 #1,Q@4SECOTR+1 =; TRACK=1 
052656 #1 ,@ASECOTR ;SECTOR=1 
OAKEY ;KEY1=0 


@AKEY2 7KEY2=0 

052734 #36. ,DAWORD ;NO OF DATA WORDS 
aX ; THIS IS A READ OPERATION 
R5,aACRC :GO TO CALCULATE CRC 


054554 
THESE ARE REGULAR SETUPS 


004737 045770 PC ,@A#CLDISK SET UP GENERAL REGISTERS 
SAND CLEAR DISK REGISTERS 
012777 177730 146146 #-40. ,@RHWC 736 DATA WORDS 4 HEADER WORDS 
146142 H#REINTO,@RHBA  ;STARTING ADDRESS OF READ BUFFER 
#1,-(SP) ;SECTOR=1 
000001 #1,1(SP) ; TRACK=1 IN UPPER BYTE 
012677 146134 (SP)+,@RHDST STRACK=1, SECTOR=1 IN RHDST 





Sate “Sweats DSKLS ms 


CZRJHC.P12 10-NOV-77 


012777 


000000 
013711 
004737 


000207 


014000 


146130 


052514 


MACY11 aie to 


146132 


E 14 
27-JUL=78 11:16 PAGE 


E CHECK ROUTINE 


MOV 


#FMT22!ECI ,@RHOF 


@RHCA 
PC ,@#CHECKT 
~CPHALT 


@AWRCHDT ,aR1 
PC ,a@4#COMHD 


PC 


175 


316 BIT WORDS 
sECC CORRECTION INHIBIT BECAUSE 
;ECC LOGIC IS NOT CHECKED YET 
;CYLINDER=0 
CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
ZCANNOT CONTINUE TESTING IF ANY OF THE 


:STOP THE TEST 

WRITE CHECK HEADER AND DATA=52 
; INTO RHCS1 

;WRITE CHECK HEADER AND DATA 
;SAME AS READ HEADER AND DATA 


RETURN TO WRITE CHECK TEST 


SEQ 0173 





C2 
C2 
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SEQ 0174 


-SBTTL COMPARE ROUTINE 


;*THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 
;*R1 HAS GOOD DATA BUFFER ADDRESS 

;*R2 HAS TEST DATA BUFFER ADDRESS 

;*$TMPO HAS ADDRESS OF RETURN ON ERROR TO PRINT HEADER 
;*$TMP1 HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA 
;*R3 HAS NUMBER OF WORDS TO BE COMPARED 

7*R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 


010146 


000200 


001176 
001200 


052774 


001124 
001126 
052774 
015124 


132216 
132212 
132144 


177177 
000200 


COMPAR : 


R1,-(SP) 


(RO) +, $TMPO 
(RO)+,$TMP1 
(RO) ,RO 


° 


R4 
R4 ,@#ERWORD 
(R1)+,(R2)+ 
3$ 


-(R1) ,@#SGDDAT 
-(R2) ,@ASBDDAT 
R3,@4ERWORD 
@4ERFLGS 


2s 
PC,a$TMPO 
5$ 


PC, a$TMP1 
(R1)+,(R2)+ 
@SWR,-(SP) 
#*C600, (SP) 
er. (SP)+ 


aS 
1$ 


(SP)+,R5 
(SP) +,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
RO 


;3PUSH R1 ON STACK 


“ADDRESS OF GOOD DATA BUFFER 
ADDRESS OF TEST DATA BUFFER 

ZNO OF WORDS TO BE COMPARED 
;RETURN ON ERROR TO PRINT HEADER 
RETURN ON ERROR TO PRINT DATA 
;RETURN ON NO ERROR 

NO OF WORDS TO BE COMPARED 


;FOR ERROR WORD NO 
;COMPARE GOOD WITH TEST DATA 
;BRANCH IF GOOD 


;GOOD DATA 
;BAD DATA 
;ERROR WORD NO. 
‘ANY ERRORS ALREAY THERE 
‘BRANCH IF YES 
RETURN TO PRINT HEADER 
;BRANCH TO AVOID at NEXT ERROR 
;RETURN TO PRINT DAT 
;UNDO -(R1) AND CRD) FOR ERRORS 
:GET SWITCH SETTING 
KEEP ONLY SWITCH 7 AND 8 
“1S 7 SET AND 8 RESET 
;BRANCH OUT IF YES 


; COUNT 
;BRANCH IF ALL NOT DEVICE 


7 POP STACK INTO R5 
:zPOP STACK INTO R4 
: POP STACK INTO R3 
: POP STACK INTO R2 


'33POP STACK INTO R1 


RETURN TO MAIN PROGRAM 
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-SBTTL WRITE CHECK DATA 
THIS IS A SUBROUTINE TO DO WRITE CHECK DATA 
CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 


; THESE ARE TO SET UP FOR DISKLESS USE ONLY 


012737 052654 WRCHDA: #FMT22 ,aACYL ;CYLINDER 0 FORMAT 16 BIT WORDS 
000001 052657 MO #1, @ASECOTR+1 RACK=1 
052656 #1 ,@A#SECOTR 
OAKEY 


OAKEY? 
000040 052734 #32. ,@A#DAWORD A WORDS 
005037 a4X STHIS IS H READ OPERATION 


004537 047176 R5 ,aA#CRC :GO TO CALCULATE CRC 
052654 
054554 


; THESE ARE REGULAR SETUPS 


004737 045770 PC,@4CLDISK SET UP GENERAL REGISTERS 
AND CLEAR DISK REGISTERS 


012777 177740 145634 #-32. ,dRHWC 336 DATA WORDS 4 HEADER WORDS 
145630 MREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
#1,~(SP) ;SECTOR=1 
000001 #1,1(SP) ; TRACK=1 IN UPPER BYTE 
(SP) +, @RHDST ;TRACK=1, SECTOR=1 IN RHDST 
;16 BIT WORDS 


012777 145620 #FMT22!ECI, @RHOF 31 
ECC CORRECTION INHIBIT BECAUSE 
SECC LOGIC IS NOT CHECKED YET 
005077 145616 @RHCA 7 CYLINDER=0 
046024 PC ,@#CHECKT [CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
005123 ,CPHALT ZCANNOT CONTINUE TESTING IF ANY OF THE 
;STOP THE TEST 
015164 @AWRCHEK ,aR1 [WRITE CHECK DATA=50 INTO RHCS1 
052514 PC ,a4COMHD [WRITE CHECK HEADER AND DATA 
SAME AS READ HEADER AND DATA 


PC RETURN TO WRITE CHECK TEST 
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-SBTTL CRC GENERATION ROUTINE 


sTHIS IS A SUBROUTINE TO CALCULATE CRC FOR THE FOUR 
SHEADER WORDS AND STORE THEM IN ‘WCRC‘’ AND ‘'GCRC'’ 
:RI - REGISTER FOR CRC, INCREMENTED CRC AVALUE IS HERE 
POSITION 2 VALUE C 
POSITION 16 I.E. OUTPUT BiT VALUE B 
; POSITION 15 VALUE E 


WORDS 
Hy PER WORD = 16 


TEMPORARY REG TO TRANSFER CARRY 
THIS HAS DATA BIT VALUE D 


DATA BIT D 
D XOR 16 
XOR 2 
XOR 15 
RIGHT ONE POSITION 
TO POSITION 1 
TO POSITION 3 


; TO POSITION 16 
[REPEAT 64 TIMES 


:CALL = =JSR RS ,a@#CRC 
;x FIRST LOCATION AT 
z;PUT CRC IN WCRC FOR READ GCRC FOR WRITE 


RO,~(SP) 3;PUSH RO ON STACK 
(R5)+,RO ;GET POINTER TO CYL NO. 
R1,-(SP) 7zPUSH R1 ON STACK 
R2,-(SP) 3=PUSH R2 ON STACK 
R3,-(SP) 37PUSH R3 ON STACK 
R4,~(SP) 3zPUSH R4 ON STACK 

R1 CLEAR WORKING LOCATION 
a4$TMP5S 


001176 #4 , AASTMPO WORD COUNT 
16$: ; TEMPORARY WORD STORAGE 
001202 a ;BIT COUNT 
001206 [TEMPORARY WORD STORAGE 
1 STMP3" :GET LSB INTO "'C’’ 
:GET ABOVE ‘'C’’ ot $TMP5 
31S POSITION 15 HIGH 
1$ BRANCH IF POSITION 16 LOW 
> alan GET POSITION 16 


R3 

OASTMPS ,R3 
032701 040000 #BIT14,R1 
001403 


;BR I 
012702 100000 . GET POSITI 
000401 4$ 


005002 $ GET POSITI 
060302 : :XOR B WITH 
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:TO GIVE C 
032701 000002 #B1T1,f1 31S POSITION 15 
03 $ ;BRANCH IF POSI 
190900 #BIT15,R4 GET POSITION 1 
BR 6$ 
ON 1 
1 


GET POSITION 
:XOR POSITION WITH B 
:TO GIVE E 
001206 :GET LSB INTO ‘'C’’ 
R1 ;GET ABOVE C INTO Ri 
:TEST B 
7$ ;BRANCH IF B=1 
100000 le ;SET B IN POSITION 1 


BR 0 
100000 : #B1T15,R1 :SET B IN POSITION 1 
$ R2 sTEST C 


11$ BRANCH IF C=1 
020000 #B1T13,R1 GET C IN POSITION 3 


020000 : #B1T13,R1 :GET C_IN POSITION 3 
: R4 TEST E 


BM 13 “BRANCH IF E=1 
000001 of ;GET E IN POSITION 16 


1 
000001 $ ;GET E IN POSITION 16 
001202 : BIT COUNTER 
15 ;BRANCH IF 16 NOT DONE 
001176 [WORD COUNTER 
1 ;BRANCH IF 4 NOT DONE 
R1,a(R5)+ ;PUT CRC WHERE DESIRED 
(SP)+,R4 3=POP STACK INTO R4 
(SP)+,R3 3:POP STACK INTO R3 
(SP)+,R2 3zPOP STACK INTO R2 
(SP)+,R1 7:POP STACK INTO R1 
HS gees 3zPOP STACK INTO RO 


HIGH 
ION 15 LOW 


T 
5 
5 
5 


000205 
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-SBTTL SIMULATED DISK SETUP 


sTHIS IS A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR 
sCYLINDER 0 (16 BITS PER WORD) 

; TRACK 1, SECTOR 1 

sKEY1 1 

sKEY2 1 

:CRC THROUGH THE JSR R5,a4CRC 
7256 WORDS OF 177400 


JSR PC ,@4SETDSK 


SETDSK: 
MO RO,-(SP) :zPUSH RO ON STACK 
aro R1 ON STACK 
2,7(S PUSH R2 ON STACK 
177400 , BATA IN THE DISK 
000400 6.,R ; COUNTER 
054572 * START OF SIMULATOR DISK 
: RO, (R2)+ sMOVE IN DATA 
R1 ; COUNT FOR 256 
1$ ;BRANCH IF 256 NOT COMPLETE 
012701 000021 #17.,R1 s2 ECC WORDS, 1 DATA GAP 
314 TOLERANCE GAP 
005022 : (R2)+ ;CLEAR ECC, = GAP AND 
; TOLERANCE GAP 
005301 


R1 > COUNT 
001375 2$ BRANCH IF NOT COMPLETE 


zNOW SET UP FOR DISKLESS USE 


012737 052654 FMT 22 ,@ACYL CYLINDER O (16 BIT WORDS) 
#1,QA4SECOTR+1 =; TRACK=1 
#1,a4SECOTR ; SECTOR=1 
#1 ,@AKEY1 KEY1=1 
#1 ,@AKEY2 sKEY2=1 
052734 256..,@4DAWORD ;NO. OF DATA WORDS 
047176 R5,a4CRC ;GO TO CALCULATE CRC 
FIRST CRC WORD 
PUT CALCULATED CRC 
(SP)+,R2 3:POP STACK INTO R2 
(SP)+,R1 33POP STACK INTO R1 
ae 3zPOP STACK INTO RO 





SEQ 0179 


font 
™N 
mn 
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CHECK HCE ROUTINE 
-SBTTL CHECK HCE ROUTINE 


;THIS IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR 
;(BIT #7) AND CRC ERROR (BIT #8) 


CALL JSR RO,@A#HCCRCE 


CZRJHCO,RP04/5/6 DSKLS me 
CZRJHC P12 10-NOV=77 11 


o 
f~ 
nm 


047730 


012077 


012077 
012037 


012777 


005037 
004737 


004737 
005737 
001034 
005737 
001015 


015132 
000004 
045770 
046024 
005123 
001210 


145126 


000001 


145102 
145064 


145062 
052664 


014000 


015124 
052514 


0454.70 
015124 


052664 


015132 


145064 


HCCRCE: 
S 


CLR 
JSR 


COM 


RO, @4#PCJSR 
#4 ,aAPCJISR 
PC ,@#CLDISK 
PC ,@4CHECKT 
,CPHALT 


(RO) ,a@#STMPS 
(RO)+,aR1 
(RO) +,@RHCA 
eo 


(RO) + 

(RO) +,1(SP) 

(RO) + 

(SP) +,@RHDST 
(RO) +, @ARHWC 


(RO) +,@RHBA 
(RO) +, aaX 


#FMT22!EC1,@RHOF 


@FERFLGS 
PC ,@4#COMHD 


¢ COMMAND~READ gory AND DATA 
“WRITE DAT 

CYLINDER 

SECTOR 


+ TRACK 

;WORD COUNT 

;RHBA BUFFER START 

3 1=WRITE DATA O=READ 

;H=1 HEADER CHECK, H=0 CRC CHECK 


SAVE PC OF JSR+4 
;GET PC OF JSR 

INIT AND SETUP GENERAL REG. 

[CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
; CANNOT CONTINUE TESTING IF ANY OF THE 


:STOP THE TEST 
7 SAVE ——— 


; COMMAN 
CYLINDER 


;UPDA 0 

TRACK SECTOR 

ZNO. OF DATA WORDS +4 HEADER 
IF A_ READ HEADER AND DATA 
ZSTARTING ADDRESS OF BUFFER 
eX= 0 ate berks AND DATA 


X=1 WRI 

16 BITS PER WORD 
sECC CORRECTION INHIBIT 
;CLEAR ERROR FLAG 
: COMMAND 


71F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7FROM THE ‘‘COMHD’' ROUTINE THAT MEANS SECTOR GAP, 
FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 


SYNC BYTE HAVE GONE BY 


DETECTED 
HEADER AND DATA ARE TO BE CHECKED. 


PC ,@#PUTREG 
@FERFLGS 
10$ 


aAX 
3$ 


AND SYNCS WERE CORRECTLY 


SAVE REGISTERS 
7 ANY cH ves THERE 


;BRANCH IF 
31S THIS A READ 
71F A WRITE DATA BRANCH 


NOW THE READ BUFFER WILL BE CHECKED 
;HEADER SHOULD BE COMPLETELY READ AS WRITTEN 





mn mn nn me me en me fn ee OR ee MONO Oe oe 
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NO DATA WORDS SHOULD BE READ 
;REINTO BUFFER HAS BEEN FILLED WITH 0 
;WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA 


004037 046664 JSR RO,@#COMPAR ; CHECK 
220 FROM :GOOD DATA 

TEST BUFFER 
34 HEADER 252 DATA 
;RETURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
READ NEXT ERROR 5 
;RETURN TO COMPARISON SUBROUTINE 
WORD NO 1 THRU 4 ARE 
;HEADER WORDS AND HENCE 
; SHOULD BE READ AS WRITTEN ON 
DISK, WORD NOS. 5 ONWARDS 
;SHOULD NOT BE READ AND HENCE 
;READ INTO BUFFER 
SHOULD BE UNCHANGED 
RETURN TO COMPARISON 


10$ ; JUMP OUT 


NOW THE DISK WILL BE CHECKED 

3;NO DATA SHOULD BE WRITTEN 

;REINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
;DISK HAS BEEN FILLED WITH 177400 

;WRFROM HAS BEEN FILLED WITH 125252 


004037 RO, @4COMPAR ; CHECK 
64 TO ;GOOD DATA BUFFER 
; TEST BUFFER 


RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
;RETURN POINT FOR GOOD COMPARISON 
;READ NEXT ERROR 5 

: RETURN TO eee he SUBROUT INE 


: D NOT 

SHAVE BEEN CHANGED BY THE 

;WRITE COMMAND 
PC RETURN TO COMPARISON SUBROUTINE 
_— 31S ben A a ON HCE CHECK? 


6 BRANCH IF 

000072 001210 #72 ,QASTMPS 71S THIS A READ COMMAND 
11$ : BRANCH A YES 

144724 001126 @RHER1 ,@#SBDDAT ; TEST DAT 

000200 001126 MHCE , AASBDDAT My HEADER, Conant BIT? 


7$ CH_IF GOOD 
014760 045534 @ARHER1 ,AWREGADR ;REGISTER ADDRESS RHER1 
000200 001124 MHCE ,@ASGDDAT ;GOOD DATA 
104027 27 ;AFTER AN ERROR ON THE 
;HEADER ONLY HCE SHOULD 


SEQ 0180 


me ee en ee ee ee ee ee ee ee ee ee ee ee 
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000460 118 BR 7$ ;BE SET 
017737 144666 001126 @RHER1 ,@MSBDDAT ; TEST DATA 
022737 100200 001126 f A#DCK! HCE ,a#$BDDAT ;ONLY HEADER COMPARE BIT? 
SHOULD BE SET 
2DCK IS SET BECAUSE ECC IS NOT READ 
CH IF GOO 


7$ D 
014760 045534 @ARHER1, @#REGADR ;REGISTER ADDRESS RHER1 
100200 001124 #DCK'HCE , @#$GDDAT ;GOOD DATA 
050120 27 ;AFTER AN ERROR ON THE 
;HEADER ONLY HCE SHOULD 
050122 ES 


7$ BE SET 
000072 001210 : #72 ,QASTMPS ;1S THIS A READ COMMAND? 
12$ : BRANCH 4 A READ 
144620 001126 @RHER1 ,@ASBDDAT ; TEST DATA 
000400 001126 ae ZONLY CRC ERROR SHOULD BE THERE 


014760 045534 @ARHER1,@AREGADR ;REG. ADDR = RHERI 
000400 001124 MO #HCRC,@ASGDDAT ;GOOD DATA 
27 sAFTER A CRC ERROR ONLY CRC 
SHOULD BE SET 
050170 0004 7$ BRANCH OUT 
050172 017737 144562 001126 : @RHER1,@#$SBDDAT ; TEST DATA 


022737 100400 001126 ADCK!HCRC ,@A#$BDDAT;HCRC AND DCK SHOULD BE SET 

;DCK IS SET BECAUSE ECC IS NOT READ 
001407 7$ BRANCH IF GOOD 
012737 100400 001124 #DCK!HCRC ,a#SGDDAT; GOOD DATA 


ono 
NN 
mom 


mmr 


013737 014760 045534 @ARHER1 , @#REGADR; FAILING REGISTER RHER1 
050224 104027 27 TAFTER A CRC ERROR ON A READ 
;DCK AND HCRC SHOULD BE SET 
:DCK IS SET BECAUSE ECC IS NOT READ 
050226 ; RO ;RETURN TO MAIN TEST 


em ee ee ee ee ee ee en ee ee en ee en se PO 8 ee OA NAMM MON 
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-SBTTL EXIT WRT HEADER & DATA ROUTINE 


THIS IS A SUBROUTINE TO LEAVE AT THE MIDDLE OF 
7A WRITE HEADER AND DATA COMMAND 

;1T TRYS TO GET SECTOR 10, TRACK 0, CYLINDER 0 
“BUT COMES OUT AFTER ONE SECTOR 

:THE COMMAND OS JSR PC, a#MIDDLE 

;BAI IS SET 


MIDDLE: 
010046 MO RO,-(SP) ;;PUSH RO ON STACK 
010146 R1,-(SP) ;>;PUSH R1 ON STACK 
013777 015172 144514 @AWRIFOR,@RHCS1 ; ini —— AND DATA=62 


012777 177766 144500 #-10. ,aRHWC DS 
144474 AWRF ROM , ARHBA “BUS ADDRE SS=WRF ROM 
144476 #10,@RHDST ;DESIRED TRACK=0 SECTOR=10 
144462 ABA ,a@RHCS2 [BUS ADDRESS INCREMENT INHIBIT 
144466 #FMT 22, @RHOF FORMAT 16 BIT WORDS 
;CYLINDER=0 
012737 000001 050332 . [SECTOR IS SET TO 1 SO THAT 
‘WE CAN GET OUT AT THE 
;MIDDLE OF AN OPERATION 
;LOOKING FOR SECTOR 10 
012777 144456 . [SET DIAGNOSTIC MODE 
052777 000001 144430 #G0,@RHCS1 :GO TO RHCS1 WITH 62 
004137 056722 arama wire 


012€01 ¥ (SP)+,R1 ‘:POP STACK INTO R1 
012600 , (SE) +_RO ‘:POP STACK INTO RO 
000207 pC 


a ee in in ie ee en en en in A in en fn i ON On On On On On On On ON A 1 OP Oo Ow Os Os Mw OH 1 ow OH OH 
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7853 050342 010546 


7875 050456 012605 
7876 050460 000200 


015132 
000004 


045770 
144362 
001126 


001124 
015014 


MACY11 tt 1052) 


015132 


144360 
144372 
144344 


001126 


045534 
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XIT WRT HEADER & DATA ROUTINE 


-SBTTL JAM CURRENT CYLINDER ROUTINE 


3*THIS SUBROUTINE WILL CHANGE THE CURRENT Pe oe REGISTER 
[*THIS IS DONE BY GIVING A SEEK COMMAND THEN AN IN 
smut On WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE 


CALL IS: 
:* JSR 
i* xC 


MAKECYL: 


1$: 


RO, @4MAKECYL 

;DESIRED VALUE OF CURRENT CYLINDER 
R5,-(SP) 33PUSH RS ON STACK 
RO, @4PCJSR PC OF JSR+4 
#4 ,aAPCISR SAVE PC OF JSR 
(RO) +,R5 GETTING READY TO FILL DESIRED CYLINDER 
R5,@RHCA FILL DESIRED CYLINDER REGISTER 


@RHDST SMAKE SURE DESIRED SECTOR TRACK IS NOT ILLEGA: 
@ASEECOM,@RHCS1 ;FILL SEEK COMMAND 
ADMD , @RHMR SET DIAGNOSTIC MODE 
#G0,@RHCS1 360 TO SEEK 
TALLOW TIME FOR SEEK TO HANG UP 
SALLOW TIME FOR SEEK TO HANG UP 
ALLOW TIME FOR SEEK TO HANG UP 
;ALLOW TIME FOR SEEK TO HANG UP 
PC ,@ACLDISK GIVE INIT 
@RHCC ,AMSBDDAT ;TEST DATA 


R5 ,@#SBDDAT COMPARE CURRENT CYLINDER 

1$ ;BRANCH IF GOOD 

RS ,@ASGDDAT :GOOD VALUE OF RHCC 

@ARHCC,AAREGADR FAILING REGISTER ADDRESS 

30 [CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
SREGISTER AFTER A SEEK AND AN INIT 

ies POP STACK INTO R5 

R 


awn 
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050462 


050464 
050466 000000 
050470 000000 


050472 113713 
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-SBTTL ECC GENERATION AND COMPARISON ROUTINE 


;*THIS SUBROUTINE GENERATES AND TESTS ECC 
;*CALL JSR PC,ECTEST 


vuvuVUVVUVUUUYU 
Dt be et nt at at bet ttt 


ECDATA: ;DATA BIT FOR ECC 
[IF ALL ONES THEN CURRENT BIT IS A ONE 
;1F ZERO THEN CURRENT BIT IS A ZERO 


GECC1: ;LOW ORDER ECC WORD TO BE GENERATED HERE 


GECC2: a ORDER ECC WORD TO BE GENERATED HERE 


TSECCG: 31f =177777 GENERATE AND TEST ECC FOR THIS BIT 
;1F =0 DO NOT GENERATE AND TEST ECC FOR THIS BIT 


NCODE: 38859. ;N-CODE WORD 


SEQ 0184 





an 
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000000 NCOUNT: 0 ; TEMPORARY N CODE 
000000 POSITI: 0 :POSITION REGISTER 
010041 HARDER: 4129. ;HARD ERROR COUNT 
; TRUE COUNT IS 4128 BUT AS COMPARES ARE 
DONE ONE STAGE LATER SO 4129 
050502 000000 DATENV: :DATA ENVELOPE FOR TYPE OUT 
tne FOR eat - 4096 
X FOR READ 4128 
050504 ZCODE : ‘TEADING FEROS. ENVELOPE FOR TYPE OUT 
fay IS SHUT OFF WHEN POSITION COUNTER 


; IN ENABLED 
MAX COUNT IS 38859 
; TEMPORARY HARD ERROR COUNT 


050516 


050520 ECTEST: 
RO,-(SP) “ae RO ON STACK 
.s R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
ss R4 ON STACK 
: PUSH RS ON STACK 
avGECC1, R1 ;ECC1 WORD 
@FGECC2,R2 sECC2 WORD 
a#ECDATA :1S CURRENT BIT A ONE 
050550 2s ;BRANCH IF CURRENT DATA D=0 


71F CARRY_IS NOT ZERO THEN D=1 
7 INVERT X32 TO GIVE RO 


050552 010103 : R1,R3 
052703 177776 #*CPIE32,R3 
005103 R3 
010300 R3,RO 
000404 BR 3$ 
71F CARRY IS ZERO THEN D=0 
3X32 BECOMES RO 
010103 : MOV R1,R3 
177776 BIC #*CPIE32,R3 
050574 R3,RO 
050576 
050600 
050602 006000 
050604 005700 








am 
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050710 
050712 
050714 
050720 
050724 
050730 


050732 


050752 


10-NOV-77 
001462 


010203 


010103 
052703 
005103 
010337 
006237 


137777 


050510 
050510 


177737 


050512 
050512 


173777 


050514 
050514 


176777 


050516 
050516 


050510 
050512 
120020 


050514 
050516 
002400 
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10$ ;BRANCH IF RO=0 
K2 

R2,R3 
#*(PIE2,R3 
R3 

R3,a4P3 
aAP3 

x11 

R2,R3 
#*CPIE11,R3 
R3 

R3,a4P12 
@AP12 

X21 

R1,R3 
#*CPIE21,R3 
R3 

R3,a4P22 
a4P22 


X23 


R1,R3 
#*CPIE23,R3 
R3 

R3,@AP24 
a4P 24 


; 24 
TARE KNOWN THE ROTATE WILL BE DONE AND 
; THESE BITS JAMED IN 


R2 

R1 

a¥P3,RO 
APIE1!PIE3!PIE12,R2 
0,R2 

RO 

a4P22 RO 

a4P24 ,RO 
HPIE22!PIE24,R1 
RO,R1 


SEQ 0186 





an 
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050754 


051022 


051024 


051056 


051060 
051064 


051066 
051066 
051070 


032777 
001005 
032777 
001401 
000421 


010146 


104035 


012605 
012604 


100000 
050464 
050466 
050470 


000400 
000100 


174000 
143752 


045470 


050476 


045470 
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7 THE PROGRAM COMES HERE IF RO=0 
:S0 AFTER ROTATE RO GETS PUT INTO POSITION 1 


sSAVE ECCI 
sSAVE ECC2 
@FTSECCG ;1S HARDWARE TO BE CHECKED 
‘e =1777777 TEST HARDWARE 
= 0 DO NOT TEST HARDWARE 
‘ BRANCH IF HARDWARE NOT TO BE CHECKED 


3 *CHECK HARDWARE 
130130 BIT ASWE ,ASWR 31S SWITCH 8 SET 
BNE 15$ BRANCH IF SW8 IS SET 
130120 ASW6,aSWR :1S SWITCH 6 SET 
15$ CH IF SW6 IS NOT SET 
14$ TIF SWITCH 8 IS NOT SET AND 
SSWITCH 6 IS SET THEN 
;DO NOT DO COMPARES 
R1,~(SP) ;GOOD PATTERN REGISTER 
#174000, (SP) :GET ONLY PATTERN BITS 
(SP)+,@RHEC2 [COMPARE PATTERN REGISTER 
Q 13$ ;BRANCH IF GOOD 
: SAVE TIME 


@4PUTREG SAVE REGISTERS 
PATTERN REGISTER IN 11 BITS IN ERROR 


14$ BRANCH OUT 
143730 13$: @4POSITI,@RHEC1 ;COMPARE POISTION REGISTER 
BEQ 14% [BRANCH IF GOOD 
i SAVE TIME 


PC ,,@#PUTREG SAVE REGISTERS 
ERROR 35 ;POSITION REGISTER IN ERROR 
7‘ DATA ENVLOP*’ GIVES NUMBER OF CLOCK 
;PULSES FROM BEGINING OF COMMAND 
THAT IS THE CLOCKS IN THE R/W DATA FIELD ENVELOPE 


‘IN A WRITE THERE ARE 10000 OCTAL CLOCKS 
‘IN A READ THERE ARE 10040 OCTAL CLOCKS 


:'N-CODE ZEROS'' GIVE THE NUMBER OF CLOCKS 
; GIVEN FOR THE LEADING ZEROS FIELD 
3MAX COUNT IS 113713 OCTAL 


:"'GOOD POSITION'' GIVES NUMBER OF CLOCKS 
GIVEN AFTER LEADING ZEROS WHICH IS FOR THE DATA 


:FIELD 
7;MAX COUNT IS 10040 OR 10041 OCTAL 


MOV (SP)+,R5 3zPOP STACK INTO R5 
MOV (SP)+,R4 ;:POP STACK INTO R4& 





mm 
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051072 012603 (SP)+,R3 3;POP STACK INTO R3 
(SP)+,R2 3zPOP STACK INTO R2 
(SP)+,R1 33POP STACK INTO R1 
(SP)+,RO 33POP STACK INTO RO 


RTS PC 
-SBTTL ECC GENERATION CONTROL ROUTINE 


3*THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE 

;*FOR ERROR CORRECTION PROCESS 

;*CALL JSR, PC ,a4ECORR 

38 xP sEXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE 


051100 
051102 


ERPOS: 0 POSITION REG. WHEN CORRECTION IS COMPLETE 


015132 ECORR: RO, a4PCJSR SAVE PC OF JSR + 4 

000004 015132 S #4 ,aAPCJSR SAVE PC OF JSR 

051104 (RO) +, @#ERPOS :GET POSITION REG. WHEN CORRECTION IS COMPLETE 
R1,-(SP) ;;PUSh R1 ON STACK 

014776 @ARHMR ,R1 SMAIMTENANCE REGISTER 

000001 ADMD ,aR1 ;SET DIAGNOSTIC MODE BIT 

050462 @FECDATA ZECC DATA IS ZERO 


050476 : —— ;1S SOFTWARE POSITION NON ZERO 


BRANCH IF N-CODE S COMPLETE 
050474 @ANCOUNT ;DECREMENT N-CODE 
6$ [BRANCH IF N-CODE IS NOT COMPLETE 
2s SBRANCH AS N-CODE IS COMPLETE 
050504 : a4ZCODE ; INCREMENT CLOCKS GIVEN FOR LEADING ZEROS 
BR 3$ BRANCH AS N-CODE IS NOT COMPLETE 
:GO TO GIVE CLOCK AND TEST ECC 
050476 2$: a4POSITI ; INCREMENT SOFTWARE POSITION 
051104 050476 @AERPOS , @#POSITI; HAVE ee CLOCKS BEEN GIVEN TO DETECT ERROR 
3$ ;BRANCH IF MORE CLOCKS TO BE GIVEN 
051202 050506 050476 CMP @A4HADTMP , a#POsiTI; ay ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR 
051210 T IS HAVE 4128 MORE CLOCKS BEEN GIVEN 


5$ ‘BRANCH IF YES 
051212 000400 #ZER,aR1 SCHECK ZERO DETECT BIT IN RHMR 
051216 1016 BNE 4$ :;BRANCH IS ZER SET 
;TO SAVE TIME 
051220 045470 JSR PC ,a4PUTREG SAVE REGISTERS 
051224 104034 34 ZERO DETECT BIT NOT H 
WHEN 21 BITS IN ECC 52 BIT REGISTER IS 0 


051226 052711 000002 : AMCLK ,@R1 SET CLOCK 

000002 AMCLK ,aR1 :CLEAR CLOCK 

050520 PC ,a@4ECTEST :GO TO GENERATE AND TEST ECC 
051242 1$ : CONT INUE 


THIS EXTRA CLOCK IS TO BRING ECH HIGH 
TAFTER THIS CLOCK POSITION REGISTER MAY BE 10040 OR 10041 OCTAL 
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051244 052711 000002 5$: AMCLK,OR1 ;SET CLOCK 
051250 042711 000002 #MCLK,@R1 CLEAR CLOCK 


051254 4$: 
051254 012601 oe 7zPOP STACK INTO R1 


051256 000200 





or 
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.SBTTL SOFTWARE DISK DATA ECC GEN. ROUTINE 


;*THIS SUBROUTINE GENERATES THE ECC FOR WHAT IS ON DISK AND INSERTS THEM 
3*0N LOCATIONS ‘DISK+1000°' AND 'DISK+1002"" 


051260 FILLEC: 
RO,-(SP) 3§ RO ON STACK 


R3 ON STACK 
R4 ON STACK 
RS ON STACK 
POSITION 
GECC1 


; CLEAR 
;POINTER TO DATA FOR ECC GENERATION 
;COUNTER FOR NUMBER OF DATA WORDS 
; COUNTER FOR NUMBER OF BITS PER WORD 
(Ri)+, R4 DATA _ IN R4 
:GET ONE DATA BIT IN CARRY 
TBRANCH IF DATA BIT IS ZERO 


, is 
177777 + 050462 #-1 ,@HECDATA 
BR 12$ 


050462 : @FECDATA TECC DATA BIT IS A ZERO 
050520 : PC,@#ECTEST ;GO TO GENERATE ECC 

R3 :DECREMENT BIT COUNT 
10$ BRANCH IF 16 BITS NOT DONE 


~4 ;DECREMENT WORD COUNT 
BRANCH IF 256 WORDS NOT DONE 

050464 055572 SPGECCT ,@#D1SK+<256.*2>; INSERT ECC1 ON DISK 
050466 055574 @AGECC2, ,@AD1SK+<257. *2>; Seg ECC2 ON DISK 

(SP)+,R5 STACK INTO R5 

(SP)+,R4 Z3 INTO R4 

(SP)+,R3 + INTO R3 

(SP)+,R2 $3 INTO R2 

(SP)+,R1 F. INTO R1 

(SP)+,RO 3zPOP STACK INTO RO 

051412 PC 
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051414 


052402 


10-NOV=77 11:09 


051422 
014756 
051510 
060352 
014746 
000026 
052400 
014756 


000000 
014756 


051640 
014744 
051712 
053024 
014756 
052074 
014744 
052144 
052210 
052222 
052300 
000200 
052370 
017356 
052410 
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SOFTWARE DISK DATA ECC GEN. ROUTINE 


-SBTTL RH BASE ADDRESS CHANGE ROUTINE 


THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


” TYPE 
BR 


,65$ 

64$ 
@ARHCS1,-(SP) 
,67$ 

66$ 

PC, ,@ASTKINT 
#RHDB,RO 
#22. ,R1 
#ADT IMO, a4 
eta 
a0(SP) 
@ARHCS1,aSP 
as 


2s 
,69$ 


68$ 
@ARPVEC ,~(SP) 


.71$ 
70$ 


(SP) +, @A#RPVEC 
73$ 


2 


72$ 
@ARHCS1 , - (SP) 
.75$ 
4$ 
@ARPVEC ,- (SP) 


8 
HRA, (SP) 


,85$ 
84$ 


@aABEGIN 
(SP) +, (SP)+ 
5$ 


e 


23 TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
[GET READY TO TYPE OLD BASE 


3sTYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 
INITIALIZE THE TTY KEYBOARD 


GET STARTING Gareaa OF REGISTERS 
[NUMBER OF REGISTERS 
;SET UP TO TEST THIS ADDRESS 
NEW CSR? 
NO, THE OLD ONE WAS RETYPED 
TACCESS THE NEW ADDRESS 
;GET THE ADDRESS OFFSET 
SAND PLUG IT IN 
oe LESS ADDRESS TO CHANGE 
T DO SOME MORE 
+S TYPE ASCIZ wera 
3;GET OVER THE ASCIZ 
;GET READY TO TYPE OLD VECTOR ADDRESS 


z3TYPE ASC1Z STRING 
3:GET OVER THE ASCIZ 


SETUP VECTOR ADDRESS 


z3sTYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


3sTYPE ASCIZ STRING 


3;GET OVER THE ASCIZ 


sz TYPE ASCIZ STRING 
:;GET OVER THE ASCiZ 
;ALL DONE, NOW START OVER! 


3zTYPE ASCIZ STRING 


SEQ 0191 





C2 
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052406 000424 
052460 000137 051414 


045770 
052464 


010000 


052510 000772 
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BR 64$ 3:GET OVER THE ASCIZ 
JMP @ABASE CH 


:*THIS IS A LITTLE ROUTINE THAT TESTS NED BIT 11 IN RHCS2 
;*THIS LOOPS HERE FOR EVER 
3*TO BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE 
;*WITH WHAT IS REALY THERE 
ERUNIT: 0 ;UNIT UNDER MANUAL TEST 
ERSTART:JSR PC ,a@#CLDISK SET GENERAL REG. 
MOV @#ERUNIT ,AR2 :SELECT UNIT 
1$: aR4 ; TEST RHER1 

A#NED ,AR2 TEST NED 

2$ ;BRANCH IF GOOD 

1$ NED NOT SET 
2$: 1$ NED SET 





C2 
C2 
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CZRJHC P12 10=NOV=77 


DISK SIMULATION 
-SBTTL DISK SIMULATION 


37*IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING 
;*WCLY=WITH CYLINDER TO BE ON DISK 


7*WSECTR=WITH SECTOR AND TRACK TO BE ON DISK 
:*WKEY1= WITH KEY1 TO BE = DISK 

:*WKEY2= WITH KEY2 TO BE ON DISK 

:*FNWORD= NO OF DATA WORDS TO BE WRITTEN ON DISK 
; * THE COMMAND THEN IS = JSR PC, COMWHD 


** 
-* 


‘IN A WRITE DATA COMMAND FILL THE FOLLOWING 
7*CYL=WITH CYLINDER TO BE FOUND ON DISK 
:*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
;*KEY1= WITH KEY1 TO BE FOUND ON DISK 
; #KEV2= WITH KEY2 TO BE FOUND ON DISK 

1 MUST BE ONE 


: SNOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN 
3;*THE COMMAND THEN IS JSR PC,COMHD 
+t 


[*IN A READ HEADER AND DATA COMMAND ay THE FOLLOWING 


:*CYL= WITH CYLINDER TO BE FOUND ON DISK 

;*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
[*KEY1= WITH KEY1 TO BE FOUND ON DISK 

:*KEY2=WITH KEY2 TO BE FOUND ON DISK 


+ *DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK 
:*;X=0 MUST BE ZERO 
>*THE COMMAND THEN IS JSR PC,COMHD 


Be Be Be Be Be 
a 


*epeepnenne ee 


;*IN A READ DATA COMMAND FILL THE FOLLOWING 

:*CYL= WITH CYLINDER TC BE FOUND ON DISK 

;*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
>*KEY1= WITH KEY1 TO BE FOUND ON DISK 

> *KEY2=WITH KEY2 TO BE FOUND ON DISK 


:*DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK 
7*;X=0 MUST BE ZERO 

3;*THE COMMAND THEN IS JSR PC,COMHD 

* 








C2 
C2 
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;*WRITE DATA COMMAND 
;*OR READ COMMAND, I.E DATA ONLY, OR HEADER AND DATA 


;*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
rltet at DIAGNOSTIC MODE, AND EXTRA DIAGNOSTIC INDEX, AND THE 
-*! i] 


3*IT THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL 
:*OTHER SUBROUTINES. THE SUBROUTINES CALLED HERE ARE: 


SEARCH ; ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP 
RDHEAD :READS THE SECTOR HEADER 

WRDATA [WRITES THE SECTOR DATA (WRITE OPERATION) 
REDATA [READS THE SECTOR DATA (READ OPERATION) 


052512 zs 0 
015132 : (SP) ,a#PCJSR SAVE PC OF JSR + 4 
000004 S 4, aPC SAVE PC OF JSR 


3=PUSH R2 ON STACK 
3zPUSH R3 ON STACK 
3=PUSH R4 ON STACK 
010546 33PUSH RS ON STACK 


012777 142226 SET DIAGNOSTIC MODE 

SET DIAGNOSTIC INDEX 

CLEAR DIAGNOSTIC INDEX 
052777 142164 #GO,@RHCS1 2 ISSUE ‘GO’ BIT & STALL ‘TILL “‘RUN* 

;FUNCTION CODE WAS yor BY THE TEST 

012737 000113 052512 RUNWAT: #75.,@M#RUNCTR LOAD STALL COUNT PROX. 450US FOR 11/50 CPU 
005337 052512 1$: @4RUNCTR >COUNT DOWN ONE 
001375 1$ CONTINUE UNTIL = 0 


013746 052656 SECOTR, -(SP) :GET DESIRED SECTOR/ TRACK 
042716 #177740, (SP) “MAKE ONLY SECTOR 

012637 (SP) +, a#TRK SSAVE SECTOR 

004137 056722 R1,a4SEARCH ‘ISSUE SECTOR CLOCKS < 


052626 000000 : . 0 
052630 012701 000240 #+NOP ,R1 ;GOING TO MOVE NOPS 
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8386 052634 010137 052666 
8387 052640 010137 052670 
8388 052644 010137 052672 
8389 052650 004137 052776 


8391 052654 000000 
8392 052656 000000 


8393 052660 000000 
8394 052662 000000 
000000 


052666 000240 


052670 000240 


Se 


RRRRRRKKEF 


ad ad nh aed cand ee 


8418 


ase 052672 000240 


36 052674 005737 015124 
8437 052700 001017 


8439 052702 005737 052664 
8440 052706 001410 
8441 052710 005737 052770 
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MOV R1,Q4SSYN 

MOV R1,@#HCDGAP 
MOV R1,@#HEDSYN 
JSR R1,@4RDHEAD 


CYL -WORD 0 
SECOTR: .~ WORD 0 
KEY1: -WORD 0O 
KEY2: ~WORD 0 
KM: -WORD O 


;NOP INTO SSYN 

;NOP INTO HEDGAP 

sNOP INTO HEDSYN 

SREAD THE HEADER <weeseeescee== > 


:CYLINDER ADDRESS 
:SECTOR/TRACK ADDRESS 
;KEY1 WORD 

KEY2 WORD 

;MX=1 WRITE COMMAND 
:X=0 READ COMMAND 


;DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION 


SSYN: NOP 


HEDGAP: NOP 


HEDSYN: NOP 


TST a4ERFLG$ 
OUT 


TST aAX 
BEQ DAREAD 
TS! @ANOS YNC 


71F ‘ERROR 2°' INSERTED BY RDHEAD 
; SUBROUTINE, THEN THE FIRST SYNC 
ZIS NOT DETECTED. NO BAD DATA 
31S GIVEN BECAUSE SYNC=144000 

BE RE WORD 


3 CANNOT AD. NUMBER 
31S ‘‘I'' BECAUSE THIS IS THE FIRST 
SWORD TESTED. 


;IF “ERROR 3°’ INSERTED BY 


;HEADE 
[WRITTEN RIGHT. 


71F ‘WORD NO’* CONTAINS, SAY 
73(8), THEN IT IS THE THIRD 
[WORD OF A 5 WORD HEADER 
;GAP THAT IS WRONG. 


:''BAD DATA’ CONTAINS WHAT IS 
;GOING ON THE DISK. 


71F "ERROR 3°* INSERTED BY RDHEAD 

; SUBROUTINE, THEN THE HEADER SYNC 
;GENERATED BY DCL IS WRONG, 

;OR THE LAST BYTE 

;OF THE HEADER GAP 0'S IS WRONG. 


7 IN EITHER CASE WORD NO=6, 
RIGHT BYTE IS HEADER 0, 
LEFT BYTE IS SYNC. 


;"BAD DATA’ HAS WHAT IS GOING 

Z0N DISK. 

;WERE ANY ERRORS DETECTED ? 

iIF YES, EXIT -=------------------- > 


31S IT_A DATA WRITE OPERATION ? 
[NO...THEN DO A DATA READ 
[IS THIS FORCED HEADER ERROR COMMAND ? 


SEQ 0195 


—ITOMMOANDWZ BO KACHTOMMOOWDS EH ACH ITAMIOW!S SF ACH IOMOOMDZS ST ACH TAMMOOW 
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052714 
052716 


052754 


10-NOV-77 11:09 


054242 


057176 


MACY11 30A(1052) 


27-JUL-78 
DISK SIMULATION 


OuT 
 feeamenta 


0 
OUT 


- Beanies 
0 


(SP)+,.R5 
(SP) +,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
PC 


B 16 
11:16 PAGE 198 


IF YES NOSYNC=-7 THEN WRITE OR READ 
SO BRANCH OUT 
IF —NOSYNC=0 THEN CONTINUE 


31S SHUT OFF, 
sEXIT IF SET 


;WRITE DATA < 
NO OF WORDS TO BF WRITTEN 


READ DATA < 


;NO OF WORDS TO BE READ 


: ¢POP STACK 


INTO R5 
INTO R4 
INTO R3 
INTO R2 
INTO R1 
INTO RO 


SEQ 0196 


CZRJHCO ,RP04/5/6 oxi S ieee 


CZRJHC.P12 


052756 
0527 


C 16 
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DISK SIMULATION 


3*THE DISK SECTOR IS DEVIDED AS FOLLOWS 


3*19 WORDS OF _0, ONE WORD 144000 
:*THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BYTE 


3*5 WORDS OF 0°S, ONE WORD 144000 
7*THESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYNC. BYTE 
;*THESE ARE DCL GENERATED 


;*THERE ARE 256 WORDS OF DATA 
;* THERE ARE 2 WORDS FOR ECC GENERATED BY DCL 
3*15 WORDS OF O'S FOR DATA GAP AND TOLERANCE 





CZRJHCO,RP04/5/6 DSKLS Be 
10-NOV=77 11:09 


CZRJHC.P12 


052770 


052772 
052774 


052776 


053110 


053112 


053174 
053176 


012137 


013737 


052760 


053566 
014776 
000002 
000001 
000010 
000002 
000012 
000013 
000012 
000007 


000002 
000002 


000022 
053564 
053570 


052756 
053570 
001000 
000001 
052756 
104002 


052760 


D 16 
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DISK SIMULATION 


;*READ DISK HEADER 


NOSYNC: 0 


TY: 0 
ERWORD: 0 


RDHEAD: MOV 
MOV 


053564 


052774 
001124 
052666 


053564 5$: 


;FORCED HEADER ERROR = 
;NORMAL = 0 


ERROR TYPE NO. 
ERROR WORD NO. 


(R1) +, @ARCYL ; CYLINDER ADDRESS 
(R1)+,@4RSETR ;S SECTOR AND TRACK ADDRESS 
(R1)+,@#RKEY1 7ST 1 

(R1)+,@4RKEY2 

(R1)+,a#COMPA; 

R1,-(SP) + R1 ON STACK 


@ARHMR ,RO :RO CONTAINS MAINTANENCE REG. 
#2,R5 ;R5_ IS A COUNTER FOR WORDS 

#DMD , ARO :SET DIAG. MODE 

#MSTCK ,@RO ZSET SECTOR CLOCK FOR FIRST WORD 
AMCLK ,@RO ;SET MAINT.CLOCK FOR FIRST WORD 
WMSTCK!MCLK,@RO ;RESET THEM 


2$ ;DON'T GIVE SECTOR CLOCK FIRST TIME 
#MSTCK'MCLK'DMD, @RO;SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX 
#MSTCK'MCLK,@RO ;RESET SECTOR & MAINT.CLOCK 

#7 ,R2 ;LOAD BYTE COUNTER 

AMCLK,@RO #SET MAINT. CLOCK 

AMCLK ,aRO 
R2 F OUNTER 

;CONTINUE IF BYTE NOT COMPLETE 
:WORD COUNTER 

CONTINUE IF WORD NOT COMPLETE 


;LOAD NO OF WORDS OF ZEROS 
;D0 O'S 


@AWORD 

PC ,@#READ 
R2 

4$ 


@ARSYNC , @#WORD 

PC ,@#READ zR 

#DTSY, ‘ONC. BYTE DETECTED? 

5$ CONTINUE IF SYNC DETECTED 
#1 ,Q@AERWORD [ERROR WORD NO 

@ARSYNC ,A#SGDDAT ; SYNC WORD 

#104002,aMSSYN ; INSERT Mo gee 2°" IN SSYN 
13$ : BRANCH 


@ARCYL, @AWORD ;SETUP CYLINDER 


SEQ 0198 
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053570 PC ,@#READ 
053564 OARSETR 


053564 


READ "READ 
053564 SETUP KEY2 
“READ IT Cer ee een eee en oe ee ee ee-"-- > 
053564 “SETUP CRC 
053570 @AREAD ‘READ IT < 


015144 31S THIS A DRIVE TIMING ERROR ? 
13$ BRANCH OUT IF YES 
053566 31S THIS A READ OR WRITE COMMAND ? 
053272 :D0 READ IF = 0 


DIAGNOSTIC WRITE COMMAND 
053274 054556 os ae” POINTER FOR HEADER GAP 


000005 
000006 052774 6$: 
054022 
054020 @AWWORD TEST WRITTEN WOR 
7$ ;CONTINUE IF GOOD, THAT IS = 

052774 ;WORD NO IN ERROR 
001124 P+ ry SHOULD BE 0 
054020 001126 D 

053342 104003 052670 

053350 BR 13$ ‘ BRANCH 


053352 054020 : —— -(R5)+  ;SAVE HEADER GAP 


6$ 
054022 PC ,@AWRITE sWRITE HEADER (DATA) GAP SYNC 
052756 054020 @ARSYNC , @AWWORD 


10$ 
052770 ‘ @ANOS YNC ;1S THIS FORCED HEADER ERROR COMMAND ? 
;1F YES NOSYNC=-1 THEN WRITE OR READ 
;1S SHUT OFF SO BRANCH OUT 
;1F WO NOSYNC=0 THEN CONTINUE 
14$ PRINT IT IF TRUE ERROR 


054020 aAWWORD 71S IT = 0? 
10$ SCONTINUE IF GOOD 

001124 @ASGDDAT :1T SHOULD BE ZERO 

BR 15$ BRANCH TO TYPE ERROR 
052756 001124 : @ARSYNC ,A#SGDDAT: GOOD DATA 
054020 : @AWWORD , Fw BAD DATA 
000006 #6, AAERWO 
104003 052672 #104003, omens, 
BR 13$ ANCH OUT 


013725 054020 10$: @AWWORD,(R5)+ ;SAVE DATA SYNC. 
000440 13$ sEXIT 


;*READ COMMAND START FROM HERE 





CZRJHCO,RP04/5/6 DSKLS Birr 
CZRJHC .P12 


053562 


10-NOV-77 1 
012702 


012737 


012601 
000201 


000005 
053564 
053570 


052756 
053570 
052770 


001000 


001000 


000006 
052756 
104062 


MACY11 30A(1052) 
DISK SIMULATION 


11$: 
12$: 


053564 


052774 
001124 
052672 


16$: 
17$: 


738: 


F 16 
27-JUL=78 11:16 PAGE 202 


@ARSYNC , @#WORD 
PC ,@4#READ 
@ANOS YNC 

16$ 

#DTSY,aRO 

13$ 

17$ 

AMDTSY, a@RO 
13$ 


#6 , AERWORD 


;READ HEADER GAP <W<<<<<<<<<<<<<< 
;ARE 5 HEADER GAP ZEROS COMPLETE : 
:1F NOT CONTINUE 

[SYNC WORD 

;READ HEADER (DATA) SYNC) 
FORCED SYNC ERROR ? 
;1F NOT ERROR COMMAND CONTINUE 
SYNC. DETECTED 

;1F ZERO BRANCH OUT 
;1F NOT ZERO BRANCH TO ERROR 


;SYNC. DETECTED ? 
SEXIT IF YES ------------------ > 
[ERROR WORD NO. 


@ARSYNC , A#SGDDAT; SYNC WORD 
#104002 ,@#HEDSYN;MOVE ‘ERROR 2°° 


(SP)+,R1 
R1 


SBT STACK INTO R1 


SEQ 0200 


G 16 
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7*READ ONE WORD IN *WORD’’ 


053570 : 
010246 MO R2,-(SP) ;PUSH R2 ON STACK 
000002 #2,R5 ;WORD COUNTER 
000001 ;SET DIAG. MODE 
053564 @AWORD ; CHECKING IF pe IS A ONE 
:1F NO ONE BRANCH 


000020 ;SET BIT 4 IF DATA HAS ONE 

000007 : #7 Re SBYTE COUNTER 

000012 AMSTCK!MCLK,@RO ;SET CLOCK,DATA IF ANY, SECTOR 

050470 @4TSECCG 71S THIS BIT TO GENERATE AND TEST ECC ? 
6$ BRANCH IF NO 


H 
000020 AMRD , ARO 31S DATA BIT A ONE ? 
5$ BRANCH IF DATA BIT IS 0 
177777 + 050462 a zECC > BIT IS A ONE 


6 [BRANCH 
050462 : @FECDATA ECC DATA BIT IS AO 
000001 : ADMD ,~( SP) [KEEP ONLY DIAG. MODE 
053564 aAWORD ;CHECKING IF THERE IS A ONE 
2$ :1F NO ONE BRANCH 
000021 #MRD'DMD,(SP) KEEP DATA AND DIAG. MODE 
: (SP) +, @RO PUT _IN DATA,RESET CLOCK, SECTOR 
050470 @A4TSECCG TIS ECC TO BE GENERATED FOR THIS BIT 
3$ [BRANCH IF NO 
050502 @ADATENV NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
PC ,@#ECTEST :GO TO GENERATE AND TEST ECC 
#MCLK ,@RO SET CLOCK 
@4TSECCG :1S THIS BIT TO GENERATE ECC 
8$ CH IF NO 


AMRD , ARO HIS DATA BIT A ONE 
7$ :BRANCH IF DATA BIT IS = 0 
177777 050462 amet 7ECC _ BIT IS A ONE 


: BRANCH 

050462 : @AECDATA 7ECC DATA BIT IS = 0 
0°0001 : #DMD , ~ (SP) SKEEP DIAG. MODE 
053564 a4WORD ZCHECKING IF THERE IS A ONE 

4$ ;BRANCH IF NO ONE 
000021 AMRD!DMD,(SP)  ;KEEP DIAG. MODE AND DATA 

: SET DATA, DIAG. MODE, CLEAR CLOCK 

050470 31S THIS BIT TO GENERATE ECC 

9$ ;BRANCH IF NO 
050502 NUMBER OF CLOCKS FOR DATA ENVELOPE 
050520 PC ,@WECTEST ;GO TO GENERATE AND TEST ECC 


R2 ;BYTE COUNTER 
3$ CONTINUE IF ONE BYTE NOT COMPLETE 
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8692 054010 005305 DEC R5 ;WORD COUNTER 

8693 054012 001300 BNE 1$ ;CONTINUE IF ONE WORD NOT COMPLETE 
8694 054014 012602 MOV (SP)+,R2 i :POP STACK INTO R2 

te 054016 000207 RTS PC sEXIT 
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;*WRITE ONE WORD WHICH COMES BACK IN ‘WWORD*’ 


054020 


054022 
RO,-(SP) 3=PUSH RO ON STACK 
33PUSH R2 ON STACK 
33PUSH R3 ON STACK 
: sPUSH R5 ON STACK 


#7 ,R2 7B R 
#MSTCK'MCLK!DMD,@RO;SET SECTOR & MANT. CLOCKS 
AMWR , ARO : CHECK ae Sek IN MAINT. REG. 


2$ CH IF 
177777 050462 #-1,a#ECDATA —ZECC DATA BIT IS A ONE 
:SET_CARRY 
R3 MOVE 1 FORWARD 


3$ 
050462 : @FECDATA ECC DATA BIT IS = 0 
EAR CARRY 


R3 “MOVE Q FOR WWORD 
000001 : #DMD , ARO ;CLEAR SECTOR AND CLOCK 
050470 @ATSECCG 71S THIS BIT TO GENERATE ECC ? 
4$ BRANCH IF NO 
050502 @ADATENV NUMBER OF CLOCKS FOR DATA ENVELOPE 
054122 050520 PC ,@#ECTEST [GO TO GENERATE AND TEST ECC < 


054126 000002 3 AMCLK , ARO :SET CLOCK 
000040 AMWR , ARO ; CHECK ad Sean” IN MAINT. REG. 


5$ BRANCH IF 
177777 050462 MOV #-1 ,QMECDATA eee nd BIT IS A ONE 
R3 SMOVE 1 FOR WWORD 


6$ 

050462 : @AFECDATA ECC DATA BIT IS ZERO 
CLEAR CARRY 

R3 s;MOVE 0 FOR WWORD 
000001 : ADMD , ARO CLEAR CLOCK 
050470 @A4TSECCG :1S THIS BIT TO GENERATE ECC ? 

7$ :BRANCH IF NO 
050502 @ADATENV NUMBER OF CLOCKS FOR DATA ENVELOPE 
050520 PC ,@MECTEST [GO TO GENERATE AND TEST ECC < 


005302 2 ; COUNT FOR BYTE END 

001346 :1F NOT BYTE END CONTINUE 

005305 [COUNT FOR WORD END 
054214 001312 ;1F NOT WORD END CONTINUE 
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54216 010337 054020 R3,@4WWORD : STORE THE WORD 
012605 (SP)+,R5 

(SP) +,R3 

(SP)+,R2 

(SP)+,RO 

PC 


054232 





CZRJHCO,RPOS/5/6 DSKLS be 


CZRJHC.P12 


054444 


10-NOV-77 


000000 
000400 
000000 


011137 





054234 
053566 


000016 
055600 
177777 


014776 
054236 
054234 
054240 
015142 


177777 
2 


054020 


054022 
054020 


050470 
000002 
054022 
054020 
054022 


054022 


MACY11 ergs 


050470 


K 16 
27-JUL-78 11:16 PAGE 


DISK SIMULATION 


z*WRITE DATA HOUSEKEEPING ROUTINE 


(R1) ,@#COUNTD 
(R1)+,R2 
(R1)+,@a4COMPA 


#-1,(R3)+ 
R1 
1$ 


@4RHMR , RO 

@4F ORMAT ,~ (SP) 
@4COUNTD , (SP) 
(SP) , @#ZWORDS 
(SP)+,R4 
@ATSECC 


7$ 
#~-1 ,AATSECCG 
SK ,R3 


PC ,aAWRITE 
@AWWORD , (R3) + 


3$ 

a4TSECCG 
#2,R1 

PC ,a@AWRITE 
@AWWORD , (R3) + 


207 


STORE NO. OF WORDS TO BE WRITTEN 
SAME IN R2 

COMPARE OR NOT 

;;PUSH RO ON STACK 


7:PUSH R4 ON STACK 

;NO. OF TOLERANCE GAP WORDS 
START OF TOLERANCE GAP TABLE 
SMAKE IT 177777 


:1S 14 COMPLETED ? 


F NOT, CONTINUE 


RO CONTAINS MAINTANENCE REG. 


NO. OF ZERO WORDS TO BE WRITTEN 
71S ae ECC TEST 


BRANCH IF NO 
; THESE BITS ARE TO GENERATE ECC 
; SIMULATED DISK AREA 
WRITE ON SIMULATED DISK 
: STORE ON SIMULATED DISK 


zANY ZEROS TO BE WRITTEN ? 
[BRANCH IF NONE TO BE WRITTEN 


WRITE ZEROS ON SIMULATED DISK 
;STORE THEM 
;NO MORE ECC TO BE GENERATED 


WRITE ECC1 AND ECC2 ON SIMULATED DISK 
STORE IN WEEC1 AND WEEC2 


sWRITE DATA GAP 
STORE IT 


-R1 
PC. aAWRITE 


;WRITE TOLERANCE GAP ZEROS 


SEQ 0205 
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054450 013723 054020 @AWWORD,(R3)+  ;STORE THEM 
005301 R1 


6$ 
(SP)+,R4 3sPOP STACK INTO R4 
(SP)+,R3 3-POP STACK 
(SP)+,R2 ;3sPOP STACK 
(SP)+,R1 ae STACK 
(SP)+,RO 

054472 R1 
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*THIS IS THE SIMULATED DISK 
:*ONLY ONE SECTOR OF SPACE IS ALLOCATED 


054474 


‘oO 


SECTOR GAP 38 BYTES OF 0 

SECTOR GAP 1 BYTE OF O ONE SYNC BYTE 
SHEADER = = CYL, SECTOR/TRACK, KEY1, KEY2 
:€ 


HEADER GAP 10 BYTES OF 0 

;HEADER GAP 1 BYTE OF O ONE SYNC. BYTE 
;(ALSO USED IN SILO TEST AS SILO TABLE) 
one SPACE 


sECC2 
;DATA GAP 2 BYTES OF 0 
; TOLERANCE GAP 28 BYTES OF 0 


Ww 
o 


1 
1 
4 
1 
5 
1 
2 
1 
1 
1 
1 


> 
. 


SEQ 0207 
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;*WRITE HEADER AND DATA 


;*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
hoo at DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 
«~#’ i] 
z*I1T THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER 
:*SUBROUTINES. THE THREE SUBROUTINES CALLED HERE ARE: 
; ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP 
WRITES THE SECTOR HEADER 
;WRITES THE ACTUAL SECTOR DATA 


;*ALL OF THE ABOVE MENTIONED ‘WRITING'’ IS ACTUALLY DONE INTO A CORE 
;*BUFFER AREA CALLED ‘DISK* VIA THE MAINTENANCE REGISTER (RHMR) 


000000 RNCTR1: .WORD 0 ;"RUN' LINE STALL COUNTER 


011637 015132 $ (SP) ,@#PCJSR SAVE PC OF JSR + 4 
000004 015132 SUB . SAVE PC OF JSR 


010446 S hot 
010546 " : PUSH R5 ON STACK 
012777 137104 ;SET DIAGNOSTIC MODE 
052777 : 


042777 
052777 137042 #GO,@RHCS1 


RUN 
> (FUNCTION CODE WAS SET UP BY THE TEST) 
055714 012737 055634 : #75.,@ARNCTRI LOAD STALL a = APPROX 450US 


055722 005337 : @ARNCTR1 3 
055726 001375 1$ ;CONTINUE UNTIL = 0 


013746 056014 @AWSECTR,-(SP) ;GET DESIRED eh setae 
177740 #177740, (SP) ;MAKE ONLY SECTOR 
055750 (SP) +, @#WTRK SAVE SECTOR 
055744 004137 056722 : R1,@4SEARCH ISSUE SECTOR CLOCKS TO GET TO 
SDESIRED SECTOR < 


055750 gabee 0 SECTOR NO. 
055752 000240 MO #+NOP ,R1 SGOING TO MOVE NOPS 
055756 056024 R1,@4SEGPER :NOP INTO SEGAP 
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010137 056026 R1,@4F SYNER NOP INTO FSYNER 

0137 056030 R1, @#ERHEAD NOP INTO ERHEAD 
R1,a@#ERCRC ;NOPINTO ERCRC 

R1, @#ERHDGP NOP INTO ERHDGAP 

010137 056036 R1,@#HDESYN ;NOP INTO HDESYN 


004137 056106 R1, @4#WRHEAD WRITE THE HEADER < 


i CYLINDER 
i AND TRACK 
TKEY2 

:GOOD CRC 


DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION 


056024 0 SEGPER: NOP :IF “ERROR 6'' INSERTED BY 
WRHEAD SUBROUTINE, THEN 
“SECTOR GAP GOING ON DISK 

31S NOT RIGHT. 


;WORD NO. CONTAINS WHICH 
;WORD IS WRONG, THAT IS 
FIRST OF TENTH, OR WHAT EVER. 


;BAD WORD IS WHAT IS GOING ON DISK 


FSYNER: NOP 7IF ‘ERROR 6°* INSERTED BY 
;WRHEAD SUBROUTINE, THEN 
; THE LAST 0 BYTE OF SECTOR 
[GAP OF FIRST SYNC. BYTE 
ZAP TER SECTOR GAP IS IN 


;WORD NO. CONTAINS 20 
RIGHT BYTE IS SECTOR GAP 
LEFT BYTE IS SYNC. BYTE. 


;BAD WORD IS WHAT IS GOING ON 
sDISK 
056030 000240 ERHEAD: NOP 

IF ‘ERROR 6°’ INSERTED BY 


;WRHEAD SUBROUTINE, THEN 
HEADER GOING ON DISK 
;1S WRONG. 


CYLINDER NO 
SECTOR/TRACK 

EY1 

KEY2 

+ 1 Aas IS WHAT IS GOING ON 
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8983 056032 000240 
8984 


056034 000240 


056036 000240 


005737 015124 
004 
054242 


056072 


D1 
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SK SIMULATION 
ERCRC: NOP 


ERHDGP: NOP 


HDESYN: NOP 


@FERFLGS 
FOUT 
R1,@4WRDATA 


0 
0 


(SP)+,R5 
(SP)+,R4 
(SP)+,R35 
(SP)+,R2 
(SP)+,R1 
(SP) +,RO 
PC 


7IF “ERROR 6°° INSERTED BY 
;WRHEAD SUBROUTINE, THEN CRC WRITTEN 
ON DISK IS IN ERROR. 


;GOOD DATA IS WHAT SHOULD BE ON DISK 
;BAD DATA IS WHAT IS GOING ON DISK. 


WORD NO IS 5 


7IF ‘ERROR 6°° INSERTED BY 
;WRHEAD SUBROUTINE, THEN HEADER 
;GAP GOING ON DISK IS WRONG. 


;WORD NO GIVES WHICH OF 
;THE HEADER GAP WORDS 
ARE WRONG. FOR EXAMPLE: 


:WORD NO 1 = FIRST HEADER 
“BAD WORD IS WHAT IS GOING ON DISK 


7IF ‘ERROR 6'* INSERTED BY 

;WRHEAD SUBROUTINE, THEN LAST 
;HEADER GAP BYTE OR HEADER 

SYNC BYTE GOING ON DISK IS WRONG. 


;WORD NO = 5 


;BAD DATA IS WHAT IS GOING 
:0N DISK, RIGHT BYTE IS HEADER 
; GAP Ces LEFT BYTE IS HEADER 


. 
e 


ZARE ANY ERRORS DETECTED ? 
IF YES BRANCH 
[WRITE THE DATA 


FORMAT COMMAND NO. OF DATA 


3 ;POP INTO R5 
7 POP 
: zPOP 
: POP 
: POP 
72POP INTO RO 
EXIT 


SEQ 0210 
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;*WRITE HEADER 


MAINT .REG. 
SIMULATED DISK 
TE COUNT 


056074 : (R1)+, @ASCYL 
(R1)+,@A#SSECTR 
(R1)+,@4SKEY1 
(R1)+,@#SKEY2 
056104 (R1)+, @4SCRC 
010146 R1,-(SP) ;3PUSH R1 ON STACK 


012701 054474 #SECGAP ,R1 ;SIMULATED DISK INDICATOR 
@4RHMR, RO [RO NOW HAS MAINT. REG. ADDR. 
ADMD , ARO 7SET DIAG. MODE 
#2,R5 ;WORD COUNTER 
#MSTCK ,@RO :SET SECTOR FOR FIRST BYTE 
012710 3 A#MSTCK!MCLK!DMD,@RO;SET SECTOR, CLOCK, DIAG. 
:MODE, RESET INDEX 
032710 “pts ZCHECK WRITE BIT IN MAINT. REG. 


;SET CARR 
;MOVE ONE FORWARD 


TCLEAR C 

MOVE 2ERO. FORWARD 

;CLEAR CLOCK, SECTOR 

:BYTE COUNTER 

>SET BIT CLOCK 

CHECK WRITE BIT IN MAINT.REG. 
056224 $ ;BRANCH IF ZERO 


056226 SET CARR 
006003 ;MOVE ONE FORWARD 


0562 006003 R3 
056240 012710 : ADMD , ARO 
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056244 
056246 


000001 052774 #1, @AERWORD 

001124 @4#$GDDAT 

001126 R3,a4SBDDAT 

056024 #104006 ,a@#SEGPER 
avi17$ : 


104006 
056714 


000022 #18. ,R2 ;COUNT NO. OF SECTOR GAP 
000024 052774 #20.,@MERWORD ;COUNT TO GIVE ERROR WORD 
054022 [WRITE SECTOR GAP 

054020 c* at sSTORE SECTOR GAP WORD 


052774 IF NOT GET ERROR WORD NO. 
001124 GOOD WORD 

054020 001126 @AWWORD , AASBDDAT BAD WORD 

104006 056024 + waa " @SEGPER: STORE Hy . 6'' IN SEGPER 


BRANCH OU 
R2 HAVE 18 WORDS OF ZEROS BEEN WRITTEN ? 
10$ :1F NOT CONTINUE 


zAT THIS POINT THE SECTOR FOUND FLOP SHOULD 
[BE HIGH, SO THAT THE HEADER SYNC BYTE CAN BE GIVEN. 


ary a. THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 


056370 005737 015144 @ATESDTE 71S THIS A DRIVE TIMING ERROR TEST ? 
056374 001147 17$ ‘BRANCH OUT IF YES ----------------- --> 


056376 004737 054022 PC ,@AWRITE WRITE ONE SECTOR GAP 0 BYTE 
SAND ONE SYNC. BYTE = 230 
013711 054020 @AWWORD , (R1) SAVE 0 BYTE AND SYNC BYTE 
023721 052756 @ARSYNC,(R1)+ GHT 
001414 12$ ION 
012737 000024 052774 #20. ,@#ERWORD TIF NOT GET READY FOR ERROR PRINT 


013737 052756 001124 @ARSYNC, er a GOOD WORD 
014137 ~(R1) ,@#$BDDAT  ;BAD WORI 

012737 056026 #104006, aa#F SYNER: INSERT Pon 6'' IN FSYNER 
000524 ; BRANCH 


012702 000004 12$: #4 ,R2 FOUR HEADER WORDS 
MO ;POINTER FOR HEADER TABLE 
052774 13$: ERROR WORD NO SET 
J [WRITE 4 HEADER WORDS 
054020 @AWWORD , (R1) STORE WRITTEN WORD 
(R3)+,(R1)+ :1S IT CORRECT ? 
14$ 3 1F GOOD CONTINUE OPERATION 
7 1F NOT GET READY FOR ERROR PRINT 
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052774 R2,a@#ERWORD WORD NO 
001124 . GOOD oy 
001126 :BAD DATA 
104006 


sARE 4 Seat — DONE ? 
054022 


(R1)+,aM#GCRC CRC 
20$ TIF GOOD CONTINUE OPERATION 
IF NOT GET READY FOR ERROR PRINT 


-(R1) ,@#$BDDATA ;BAD CRC WRITTEN 
001124 @AGCRC ,a#SGDDAT :GOOD CRC 
052774 #5 ,AAERWORD ERROR WORD NO 
056032 #164006. -@MERCRC ; a ERROR 6 


: . NO OF HEADER GAP 
052774 : ;ERROR WORD NO SET 
E WRITE HEADER GAP 
054020 aAWWOR STORE 
1 31F GOOD CONTINUE OPERATION 
7 IF NOT GET READY FOR PRINT 


052774 R2,a#ERWORD ERROR WORD NO 
@4SGDDAT 
-(R1), e 


056034 


zARE 5 HEADER GAP ZEROS DONE ? 
3 1F NOT CONTINUE 
054022 
054020 
052756 @ARSYNC , (R1) + 
17$ sA~OK, EXIT 


000005 052774 #5 , @AERWORD 7 1F NOT GET READY FOR ERROR PRINT 
001126 -(R1) , a#$BDDAT 
052756 001124 @ARSYNC , aASGDDAT 

012737 104006 056036 #104006 , @#HDE SYN 


056714 : 
056714 012601 (SP)+,R1 Ta 4 STACK INTO R1 
056716 000201 R1 sEXIT 
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;*SEARCH SECTOR 


RO=RHMR ADDRESS 

R1=PASSED ARGUMENT (SECTOR SEARCHED FOR) 
R2=CLOCK COUNT (PER BYTE) 

R3=SECTOR COUNTER FROM R1 

R5=BYTES PER WORD COUNT 


;*BEFORE INDEX IS GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET 
;*SECTOR PULSE IN CASE IT IS SET. 


7*AT THE BEGINNING OF EACH SECTOR, ONE SECTOR CLOCK HAS TO RISE 
:*BEFORE MAINT. CLOCK, THEN EVERY EIGHT MAINT.CLOCKS, ONE SECTOR CLOCK 
:*1S_ IDENTICAL WITH THE MAINT. CLOCK 

;*THE SECTOR CLOCKS ARE NUMBERED AS FOLLOWS: 


3 *THE = Be CLOCK UNDER INDEX - 0 
;*THE NEXT = 1 
att NEXT = 2 


s*ETC. 

7*THEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608 
;*THE NEXT SECTOR WILL HAVE 608 SECTOR CLOCKS 

ale oT THEN HAS ANOTHER 608 SECTOR CLOCKS 

** 


056720 000000 SECTR: 0 ;SECTOR SEARCHED FOR 


012137 056720 SEARCH: MOV pat «Na oat 7 SAVE SECTOR SEARCHED FOR 
010046 MOV RO,-( H RO ON Cc 
R1, (8p) 
R2.=($P) 
R3,-(SP) 
R4,-(SP) 
R5,-(SP) ; CK 
013700 014776 @4RHMR, RO :NOW RO HAS MAINTENANCE REG. ADR. 
056746 013703 056720 @4SECTR,R3 ;LOAD SECTOR COUNTER 


056752 012710 000001 #DMD , ARO SET DIAGNOSTIC MODE 
056756 000010 A#MSTCK, @RO :$ OCK 
056762 2710 000010 A#MSTCK, ARO 
56766 000010 AMSTCK, @RO ; 
056772 000070 AMSTCK, @RO SCLEAR SECTOR CLOCK 
;THE ABOVE TWO SECTOR CLOCKS ARE GIVEN FOR 
SRESETING SECTOR PULSE 


056776 000014 #MINX!MSTCK,@RO ; OR C 
057002 000014 AMINX!MSTCK,@RO ;RESET ag) AND SECTOR CLOCK 
057006 R3 :TEST FOR SECTOR 0 

057010 7$ IF SECTOR O. IS REQUIRED, EXIT 


—_-_2_ ee eee en eo eo Oo eo 2 2 2 eS 4 4 4 A 4. AB B.A BABAR. ARR RARAhARA.RAAAANAAAAM 
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zNOW 304 WORDS WILL START (608 BYTES) 


;*FOR FIRST BYTE MAINT. SECTOR CLOCK WILL GO HIGH, THEN MAINT. CLOCK WILL GO HIGH 
we ap WILL COME DOWN TOGETHER, THEN SEVEN MAINT. CLOCKS WILL BE GIVEN 

*FOR SECOND BYTE, AND ALL OTHER BYTES TILL NEXT SECTOR, SECTOR CLOCK 
‘WILL BE IDENTICAL WITH ONE MAINT. CLOCK 


ONE WORD ONLY 


057012 012702 : #8., ;BYTE COUNTER 
a R5 ;BYTES PER WORD 
#MSTCK ARO SET SECTOR CLOCK 
#MCLK, @RO ;SET MAINT. CLOCK 
3$ ;BRANCH TO CLEAR SECTOR AND CLOCK 
AMSTCK!MCLK,@RO ;SET BOTH CLOCKS 
#MSTCK!MCLK,@RO ;CLEAR BOTH CLOCKS 
SET MAINT. CLOCK 
;CLEAR MAINT.CLOCK 
;BYTE COUNTER 
:CONTINUE IF BYTE NOT COMPLETE 


012702 ;SETUP FOR SECOND BYTE 
005305 R5 31S WORD COMPLETE? 
001362 ;CONTINUE IF NOT COMPLETE 
3TO GIVE SECTOR CLOCK AND MAINT. CLOCK 


a ee ee ee ee. ee ee ee en en eo Pe ee | 


NOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 


012701 #303. .,R1 ;WORDS PER SECTOR COUNTER 
: #2,R5 :BYTES PER WORD COUNTER 

#7 ,Re BIT COUNTER (MAINT.CLOCK COUNTER) 
#MSTCK'MCLK,@RO :SET SECTOR CLOCK AND MAINT. CLOCK 
AMSTCK!MCLK,@RO ;CLEAR CLOCKS 
AMCLK,@RO 7SET MAINT. CLOCK 
AMCLK,@RO [RESET MAINT. CLOCK 
R2 :1S BYTE COMPLETE ? 

057126 6$ [CONTINUE IF NOT COMPLETE 


057130 R5 71S WORD COMPLETE ? 
057132 001362 5$ CONTINUE IF NOT 


057134 R1 31S SECTOR COMPLETE ? 
057136 4$ CONTINUE IF NOT 


057140 AMSTCK,aRO SET SECTOR CLOCK 1 MORE TIME (FOR 609) 
2710 00007 A#MSTCK,aRO ;CLEAR SECTOR CLOCK 
R3 31S REQUIRED NO OF SECTORS COMPLETE ? 
057152 BN 1$ CONTINUE IF NOT 


057154 


(SP)+,R5 32POP STACK INTO R5 
(SP) +,R4 33POP STACK INTO R4 
(SP)+,R3 3;POP STACK INTO R3 
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012602 


057170 


057172 
057174 


057176 012137 


012702 
012703 


057172 
057174 


015142 


177777 
000402 


054572 
053564 
053570 


015142 


050470 
000017 
053564 
053570 


MACY11 pgs 27-JUL-78 


DISK SIMULATION 


(SP) +,R2 
(SP)+,R1 
(SP)+,RO 
R1 


;*READ ONE SECTOR OF DATA 


RNO: 0 
RCOM: 0 


REDATA: MOV 
MOV 


(R1)+,a@#RNO 


1$ 
#~1 ,AATSECCG 
#258. ,R2 


a% » @AREAD 
3$ 
(SP)+,R1 
R1 


K 1 
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3zPOP STACK INTO R2 
3¢POP STACK INTO R1 
33POP STACK INTO RO 


NO. OF WORDS READ 
EXTRA STORAGE 


SAVE NO. OF WORDS ONLY FOR INFORMATION 
EXTRA WORD ONLY FOR INFORMATION 

33PUSH R1 ON STACK 

71S THIS AN ECC TEST 

BRANCH IF NO 

THESE BITS ARE TO GENERATE ECC 

7256 SECTOR 


F WORDS 
:POINTE TO DISK SIMULATION 
READY TOREAD CONTENTS 


E 
43 256 WORDS DONE? 
F NOT BRANCH 

VS THIS AN ECC TEST 

[BRANCH OUT IF YES 
[NO MORE ECC BITS ARE TO BE GENERATED 
ZONE DATA GAP, 14 TOLERANCE GAP 
READY TO READ CONTENTS OF WORD 
zREAD 
; COUNT 
;BRANCH IF 14 NOT DONE 
3zPOP STACK INTO R1 

; RETURN 


SEQ 0217 


an 
NN 
| 


AM 


ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee Oe 
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RPVECT: 
104401 057314 TYPE ,65$ 3: TYPE ASCIZ STRING 
000423 BR 64$ 3:GET OVER THE ASCIZ 
104402 TYPOC TYPE FROM PC 
012777 057306 135352 MOV #MRPVECT ,ARPVEC RESTORE TRAP RPO4 VECTOR 
057372 000000 HALT CHANGE TO CONTINUE 
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- SBTT 


057374 


121514 


000004 


121446 
001102 


001103 


121410 
001106 


121356 


1$: 
BN 
SXTSTR: 
MO 


@FERRVEC ,- (SP) 
ae — 


a#177060 

(SP) +, a@#ERRVEC 
$SVLAD 

(SP)+, (SP)+ 
? + ,@#ERRVEC 
#B1T08 ,6.SWR 
@SWR,$TSTNM 
SOVER 

SERFLG 

3$ 

SERMAX , SERFLG 
#B1T09,aSWR 
SLPERR,$LPADR 
SOVER 


SERFLG 
STIMES 


1$ 
#B1T11,aSWR 
1$ 


$SPASS 

1$ 

$ICNT 

STIMES ,SICNT 
SOVER 
#1,$I1CNT 
SMXCNT ,STIMES 
STSTNM 

(SP) ,SLPADR 


(SP) ,SLPERR 
SESCAPE 


#1 , SERMAX 
$TSTNM,@DISPLAY 


$LPADR, (SP) 


L 
-SBTTL ***SYSMAC LIBRARY ROUTINES*** 
SBTTL 


3zTEST FOR CHANGE IN SOFT-SWR 
CLEAR FLAG FOR HEADER _— COMMANDS 
CLEAR FLAG FOR ECC TEST 
SEVEN IN AN ECC TEST gl CLOCK 
:DRIVE TIMING ERROR TEST 
LOOP ON PRESENT TEST? 
ZIYES IF SW14=1 
7 1F RUNNING ON THE ‘OR’ TESTER CHANGE 
7:SAVE THE —— OF THE ERROR VECTOR 
2eSET FOR TIMEOU 


ev OUT ON X XOR? 
; 7RESTORE THE ERROR VECTOR 
:GO TO THE NEXT TEST 
ZICLEAR THE STACK Sake A TIME OUT 
: sRESTORE THE ERROR VECTOR 
eel LOOP ON THE tg 33 TEST 
7. ON SPEC. TEST 


F NO 
HE RIGHT TEST? SWR<7 :0> 
YES 


—— OCCURRED? 
. ERRORS FOR THIS TEST OCCURRED? 


SISET LOOP ADDRESS TO LAST SCOPE 


ZERO THE ERROR FLAG 

2stlee THE NUMBER OF ITERATIONS TO MAKE 
SCAPE TO THE NEXT TEST 

ae ; INHIBI a eames 


IF 
iF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
ZEINCREMENT ITERATION COUNT 
Dee THE NUMBER OF ITERATIONS MADE 
7;BR IF MORE ITERATION REQUIRED 
3 SREINITIALIZE THE ITERATION COUNTER 
T NUMBER OF ITERATIONS TO DO 
7: COUNT TEST NUMBERS 
3z:SAVE SCOPE LOOP ADDRESS 
3:SAVE ERROR LOOP ADDRESS 
7 CLEAR THE eonh — ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
: DISPLAY TEST NUMBER 
3;FUDGE RETURN ADDRESS 
$7 Lee PS 
;;MAX. NUMBER OF ITERATIONS 
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177777 


177777 |=177776 


060102 
000002 000004 


27-JUL-78 


RO,-(SP) 
R1,-(SP) 
R2,~(SP) 
R3,~(SP) 


R5,~-(SP) 
#20200 ,-(SP) 
20(SP) ,R5 


R5 
#*=,1(SP) 
RO 


#SDBLK ,R3 
# ,(R3)¢4 


R 
SDTBL(RO) ,R1 
R1,R5 


6$ 
1(SP) ,-1(R3) 
#°0,R2 

A UR 
R2,(R3)+ 
(RO) + 
RO,410 
2s 
8$ 
R5S.R2 
6$ 
(SP) + 
9h 
-1(SP) ,-2(R3) 
(R3) 


, $DBLK 
2(SP) ,4(SP) 
(SP) +, (SP) 


N 1 
11:16 PAGE 222 
ERT BINARY TO DECIMAL AND TYPE ROUTINE 


3=PUSH RO ON STACK 


; G 
:3ZERO THE CONSTANTS INDEX 
3;SETUP THE OUTPUT POINTER 
23SET THE FIRST a TO A BLANK 


Cc ANT 
3 FORM THIS BCD DIGIT 
; IF DONE 
Zr INCREASE THE BCD DIGIT BY 1 


7zADD BACK THE CONSTANT 
Sa we BCD 5 i na 


FALL THROUGH I 
‘ibe it - LEADING 0°S? 


TAR IF NO 
#2 YES-~SET THE SIGN 
7zMAKE THE BCD DIGIT ASCII 
oe IT A SPACE IF NOT ALREADY A DIGIT 
T THIS CHARACTER IN THE OUTPUT BUFFER 


:GO TO ASCII 
3 WAS oF os THE FIRST NON-ZERO? 


7:YES--SET THE SIGN FOR TYPING 
7:SET THE TERMINATOR 
3zPOP STACK INTO R5 
: POP STACK INTO R3 
POP STACK INTO R2 
::POP STACK INTO R1 
: sPOP STACK INTO RO 
sNOW TYPE THE NUMBER 
SZADJUST THE STACK 


7; sRETURN TO USER 


SEQ 0220 


2 FLELLSLSPSLVF 


09° 
ar 


eee 
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105737 
100002 


001157 


MACY11 30A(1052) 
TYPE ROUT 


060326 


120654 
000002 


000002 


$TYPE: 


BR 
$TYPEC: 


1$: 


NCB 
$CHARCNT : . WORD 


$TYPEX: RTS 


27-JUL-78 
INE 


STPFLG 
1$ 


a ,- (SP) 
(SP) + 

(SP) +,RO 
#2, (SP) 
teens 
ACRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2s 


PC,STYPEC 
SFILLC, (SP)+ 


2$ 
tat 27 (SP) 


6$ 
PC,$TYPEC 
SCHARCNT 
7$ 


#* (SP) 
PC,S$TYPEC 
#7, $CHARCNT 
9$ 


(SP) + 
2$ 


a$TPS 
STYPEC 
2(SP) ,a$TPB 
«al 


ALF ,2(SP) 
STYPEX 
(PC)+ 


0 
PC 


B 2 
11:16 PAGE 223 


SEQ 0221 


ii THERE A TERMINAL? 


;BR IF YES 
$e ate IF NO TERMINAL 


oe 


; SAVE RO 

:;GET ADDRESS OF ASCIZ STRING 

: PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 

sz, 1F TERMINATOR POP IT OFF THE STACK 

: RESTORE R 

; ADJUST RETURN PC 


7 RETURN 
3; BRANCH IF <HT> 
7 zBRANCH IF NOT <CRLF> 


;POP <CR><LF> EQUIV 
<I TYPE A CR AND LF 


33CLEAR CHARACTER COUNT 
33GET NEXT CHARACTER 
3:GO TYPE THIS CHARACTER 
31S IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 
T:GET # OF FILLER CHARS. NEEDED 
+ :DOES A NULL NEED TO BE TYPED? 

IF NO=-GO POP THE NULL OFF OF STACK 

360 TYPE A NULL 

O NOT COUNT AS A COUNT 


*TLOOP 
; REPLACE TAB WITH SPACE 
si TYPE A SPACE 
; BRANCH IF NOT AT 
TOP 


7: TAB S 
;:POP SPACE OFF STACK 

::GET NEXT CHARACTER 

iZWAIT UNTIL PRINTER IS READY 


3;zLOAD CHAR TO BE TYPED INTO DATA REG. 
31S ene Ye A CARRIAGE RETURN? 


BRANCH IF NO 
i YES=-CLEAR CHARACTER COUNT 


31S CHARACTER A LINE FEED? 


Fy CHARACTER 
3;CHARACTER COUNT STORAGE 
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120520 
he 


061411 
060352 
044710 
000007 


000176 
000011 
001216 


000023 
120416 
120410 
120404 
177600 
000021 
000100 


060332 
000140 


000175 


000040 
177520 
060334 
060334 
060340 
000176 
120270 
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060334 
060336 
000060 
000062 
120524 


120362 


060351 
060334 
001140 


27-JUL-78 


INPUT ROUTINE 


STKCNT: 


- WORD 


R 
$TKSRY: . VB 


0 


0 
STKCNT 


MSTKQSRT ,STKQIN 
$TKQIN, $TKQOUT 
MSTKSRV ,@ATKVEC 
#200 ,@#TKVEC+2 


a$TkB 
4 a -@$TKS 


@$TKB,-(SP) 
#*(177, (SP) 
(SP) #3 

1$ 


-SCNTLC 
PC, $TKINT 
(SP) + 
OPERSEL 
(SP) 47 
2s 
ASWREG , SWR 


#9. ,STKCNT 
3$ 


31 
a$TKB,-(SP) 
#°(177, (SP) 
(SP) +, #21 
31 

#100, a$TKS 


STKCNT 
(SP) ,4140 


4$ 
(SP) ,4175 
4$ 


#40, (SP) 

(SP}+ -@$TKQIN 
—— -#STKQEND 
MSTKQSRT ,$TKQIN 


AMSWREG , SWR 
15$ 

a$TKS 

15$ 


c @ 
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: ;NUMBER OF Ming, IN QUEUE 
POINTER 


2 OUTPUT POINTER 

;CLEAR COUNT OF ITEMS IN ws 
TZMOVE THE STARTING ADDRESS OF THE 
3;QUEUE INTO THE INPUT & aurPUT POINTERS. 
¢s INITIALIZE THE KEYBOARD VECTOR 

;‘BR'' LEVEL 4 


3sCLEAR DONE FLA 

7 ENABLE TTY KEYBOARD INTERRUPT 
;sRETURN TO CALLER 

3sPICKUP_THE CHARACTER 

3zSTRIP THE JUNK 

331$ Ag, — C? 


; BRANCH IF NO 

zz TYPE A CONTROL-C (*C) 

sz INIT THE KEYBOARD 

7 CLEAN UP STACK 

:3CONTROL C RESTART 

22S IT A CONTROL G? 
;BRANCH IF NO 

3315 SOF T-SWR SELECTED? 

TO SWR CHANGE 


oa F 
7sRING THE TTY BELL 
fe CHARACTER OFF OF STACK 


IT 
:31S IT A CONTROL~S? 


:BRANCH IF NO 

; sDISABLE TTY KEYBOARD INTERRUPTS 
CLEAN CHAR OFF STACK 

S:WAIT FOR A CHAR 

3;;LOOP UNTIL ITS THERE 

3;GET THE CHARACTER 

73MAKE IT 7-BIT ASCII 

3731S IT A_CONTROL-Q? 


3 BRANCH IF NO 
pe TTY KEYBOARD INTERRUPTS 


= COUNT THIS CHARACTER 
Zr1S 1 UPPER CASE? 


H Y 
:sMAKE IT UPPER CASE 
33sAND PUT IT IN QUEUE 
UPDATE THE POINTER 
3360 OFF THE END? 


BRANCH IF NO 
i RESET THE POINTER 


URN 
its THE SOFT-SWR SELECTED 
2 EXIT IF NOT 

S A CHAR WAITING? 
Sr1F NOT, EXIT 


SEQ 0222 
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117746 120264 


SESBEEEE 
NOUS WI © 


g 


RERRRELE 
SRXNVSERSK 


177600 
000007 


001134 


060352 
120226 
000001 
061423 
061430 
000176 


061441 


120166 
120162 
177600 


061411 
000006 
001135 
000100 
044710 
000025 
061416 
000006 


000015 
000004 
000002 
000006 
001223 
001135 
000100 
060262 
000060 


000067 


000001 


000001 
120120 


120046 


000001 
120024 


@$7TKB,-(SP) ai S 


#*C177, (SP) 
(SP) ,# 


2$ 
$AUTOB,#1 
2$ 

(SP) + 

PC, $TKINT 
asTks 

#1, SINTAG 
SSCNTLG 

* $MSWR 
SWREG, -(SP) 
/SMNEW 
=(SP) 

-(SP) 

a$TkS 

7$ 
a$TKB,-(SP) 
#*°(177, (SP) 
(SP) #3 

9$ 

/SCNTLC 
#6,SP 
SINTAG, #1 


8$ 
#100,a$TKS 


11$ 
a an 


, $CRLF 
SINTAG,41 
15$ 

#100, a$TKS 


PC ,$TYPEC 
(SP) ,460 


1 
| aad 
#60, (SP)+ 
2(SP) 


7YE 

sMAKE IT 7-BI7 ASCII 
i218 IT A CONTROL-G? 

31F NOT, PUT IT IN THE TTY QUEUE 
> TARE WE RUNNING IN AUTO-MODE? 
; BRANCH IF YES 
32CLEAR CONTROL-G OFF STAL% 
77;FLUSH THE TTY INPUT QUEUE 
;:DISABLE TTY KEYBOARD INTERRUPTS 
72SET INTERRUPT MODE INDICATOR 
: sECHO THE CONTROL-G (“*G) 

: TYPE CURRENT CONTENTS 
+I SAVE SWREG FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
33 NEW SWR 


ERE? 
F NOT TRY AGAIN 
PICK UP CHAR 
IMAKE IT 7-BIT ASCII 
321S_ IT A_CONTROL-C? 
; sBRANCH IF NOT 
tet ECHO CONTROL-C (“C) 
; = CLEAN UP STACK 
fin aneoy Be yp KEYBOARD INTERRUPTS? 


ALLOW TTY KEYBOARD INTERRUPTS 
:zCONTROL-C RESTART 
:z1S IT A CONTROL-U? 
; BRANCH IF NOT 
iiYES. ECHO CONTROL=-U (“U) 
—E PREVIOUS INPUT 


siLeT" S TRY IT AGAIN 
Be A <CR>? 


; H IF NO 
:eYES, IS IT THE FIRST CHAR? 
56 H IF YES 


LF> 
TTY KBD INTERRUPTS? 
NOT 
TTY KBD INTERRUPTS 


F YES 
4 


: F YES 
<OSTRIP-OFF ASCII 
:i1$ THIS THE FIRST CHAR 


CH IF 

: NO. SHIFT PRESENT 
HAR OVER TO MAKE 
ROOM FOR NEW ONE. 
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000002 178: 2(SP) : KEEP COUNT OF CHAR 
177776 -2(SP), (SP) ; 


BR $ 
001222 18$: .SQUES ; 
BR 20$ : SIMULATE CONTROL-U 
SRDCHR: (SP) ,=(SP) [:PUSH DOWN THE PC AND 
000004 MO 4(SP) ,2(SP) THE PS 
000004 4(SP) ZIGET READY FOR A CHARACTER 


~ (SP) 

#64$ ,-(SP) 
;POP PC 

5 SIWAIT ON A CHARACTER 

$TKC ;;DECREMENT THE COUNTER 

S$ TKQOUT, 4(SP) :3GET ONE CHARACTER 

$TKQOUT UPDATE THE POINTER 

SIKOOUT, ASTKQEND 33DID a - OFF OF THE END? 


2 ; sBRANCH IF NO 
#STKQSRT ,STKQOUT 2 RESET THE POINTER 


R3,-(SP) TISAVE R3 
#STTYIN,R3 3;GET ADDRESS 
ASTTYIN+9.,R3 5 ;BUFFER FULL? 
4$ ;:BR IF YES 
: G0 READ ONE CHARACTER FROM THE TTY 
(SP) +, (R3) CTER 


#177, (R3) 
3$ 


, SQUES iT 
1$ ZCLEAR THE BUFFER AND LOOP 
(R3) ,9$ S TECHO THE CHARACTER 


a) 
#15, (R3)+ 2s CHECK FOR RETURN 
2$ LOOP IF NOT RETURN 
177777 -1(R3) S:CLEAR RETURN (THE 15) 
001224 -$LF ::TYPE A LINE FEED 
(SP) +,R3 7 RESTORE R3 
(SP) ,-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
000002 4(SP) ,2(SP) re FIRST ASCII CHARACTER ON IT 
000004 MSTTYIN,4(SP) 


RETURN 
9$: J : STORAGE FOR ASCII CHAR. TO TYPE 
B 0 RMINATOR 

000012 $CNTLC: . /*C/<15><12> 

000 $CNTLU: .AS /*U/<15><12> 
000012 $CNTLG: . /*G/<15><12> : 
020122 $MSWR: .ASCIZ <15><12>/SWR = / 
053505 $MNEW: .ASCIZ / NEW = 


7FROM THE TTY 





CZRJHCO,RPO4/5/6 DSKLS abe MACY11 yyy 27-JUL-78 
CZRJHC.P12 10-NOV-77 11:09 EAD AN OCTAL NUMBER FROM THE TTY 


$RDOCT: MOV 
000004 000002 MOV 


9680 
9681 
9682 


177770 


000012 
061610 


4$: 
5$: 


001222 
BR 
$HIOCT: .WORD 


(SP) ,-(SP) 
4(SP) ,c(SP) 
RO,-(SP) 
R1,~(SP) 
R2,-(SP) 


(SP) +,RO 
RO,5$ 
R1 


Re 
tiga 


R2 
#*C7, (SP) 
(SP)+,R1 


2$ 

(SP) + 
R1,12(SP) 
R2,$HIOCT 
(SP) +,R2 
(SP)+,R1 
(SP)+,RO 


(SP) + 
(RO) 

0 
,S$QUES 
1$ 

0 


F 2 
11:16 PAGE 227 


ee te SPACE FOR THE 
T NUMBER 
3: PUSH RO ON STACK 


; INE 

SGET ADDRESS OF 1ST CHARACTER 
‘ TAND SAVE IT 
3zCLEAR DATA WORD 


3sPICKUP THIS CHARACTER 
3cIF ZERO GET OUT 

7 sMAKE SURE THIS CHARACTER 
3771S AN OCTAL DIGIT 


332 
3384 
328 


3zSTRIP THE ASCII JUNK 
oo IN THIS DIGIT 


L 
32CLEAN TERMINATOR FROM STACK 
73SAVE THE RESULT 


7zPOP STACK INTO R2 
::POP STACK INTO R1 
“ct A Seg INTO RO 


ee 'N 

3:CLEAN PARTIAL FROM STACK 
3zSET A TERMINATOR 

32 TYPE UP THRU THE BAD CHAR. 


es "ile a gi g “ae 
Tr TRY AGAIN 
72HIGH ORDER BITS GO HERE 





ESSS55Emm F 


CZRJHCO,RPO4/5/6 DSKLS 7 inne 


CZRJHC .P12 


10-NOV-77 


177777 


117216 


001000 


001110 
001214 


001214 


G 2 
MACY11 "or te 27-JUL-78 11:16 PAGE 228 SEQ 0226 


015124 
117304 
17274 


001116 
001114 
117234 


117202 


OR HANDLER ROUTINE 


#-1 ,AACRFLGS 
tea 


$ 
STSTNM,@DISPLAY 
a 


, SBELL 
SERTTL 
(SP) , SERRPC 


20$ 
PC, SERRTYP 
-$CRLF 


@SWR 
3$ 


#B1T09,aSWR 
4$ 


$LPERR, (SP) 
SESCAPE 


5$ 
SESCAPE , (SP) 


; TEST FOR re IN SOF T-SWR 
SET ERROR FLAG 
3;SET THE ERROR FLAG 
7;DON'T LET THE FLAG GO TO ZERO 
3;DISPLAY TEST NUMBER AND ERROR FLAG 
;;BELL ON ERROR? 


E OF ERRORS 
SIGET ADDRESS OF ERROR INSTRUCTION 


it yg AND SAVE THE ERROR ITEM CODE 
;SKIP TYPEOQUT IF SET 
;SKIP_ TYPEOUTS 

$260 TO USER ERROR ROUTINE 


;zHALT ON ERROR 

pho IF CONTINUE 

;;HALT ON ERROR! 

7z TEST FOR CHANGE IN SOFT-SWR 
;;LOOP ON ERROR SWITCH SET? 
::BR IF NO 

: FUDGE RETURN FOR LOOPING 

iz CHECK FOR AN ESCAPE ADDRESS 
32BR IF NONE 

: FUDGE RETURN ADDRESS FOR ESCAPE 
7 RETURN 





H 2 
CZRJHCO,RPO4/5/6 DSKLS Bp MACY11 gh et 27-JUL-78 11:16 PAGE 229 SEQ 0227 


CZRJHC.P12 10-NOV-77 11:09 RROR MESSAGE TYPEOUT ROUTINE 
9745 061760 104401 001223 TYPE »$CRLF : : CARRIAGE RETURN’’ &@ ‘LINE FEED*' 
9746 061764 010046 MOV RO,-(SP) AV 
9747 061766 005000 CLR RO : BTCKUP THE ITEM INDEX 
9748 061770 153700 001114 BISB a#$1TEMB,RO 
9749 061774 001004 BNE 1$ zz IF ITEM NUMBER IS ZERO, JUST 
9750 061776 013746 001116 MOV SERRPC ,-(SP) *:SAVE $ERRPC FOR TYPEOUT 
9751 062002 104402 TYPOC ::G0_ TYPE=-OCTAL ASCII(ALL DIGITS) 
9752 062004 000445 BR 10$ ET OUT 
9753 062006 005300 1$: DEC RO ; ADJUST THE INDEX SO THAT IT WILL 
9754 062010 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
9755 062012 006300 ASL RO 
9756 062014 006300 ASL RO 
9757 062016 062700 001226 ADD A#SERRTB,RO :;FORM TABLE POINTER 
9758 062022 012037 062032 MOV (RO) +,2$ : PICKUP ‘ERROR MESSAGE’’ POINTER 
9759 062026 001404 BEQ 3$ SKIP TYPEOUT IF NO POINTER 
9760 062030 104401 TYPE :: TYPE THE ‘ERROR MESSAGE'' 
9761 062032 000000 2$: .WORD 0 : "ERROR MESSAGE’’ POINTER GOES HERE 
9762 062034 104401 001223 TYPE »$CRLF ;;°'CARRIAGE RETURN'' & "LINE FEED’ 
9763 062040 012037 062050 3$: MOV (RO)+,4$  sPICKUP "DATA HEADER’’ POINTER 
9764 062044 001404 BEQ 5$ 3SKIP TYPEOUT IF 0 
9765 062046 104401 TYPE iz TYPE THE ‘DATA HEADER"’ 
9766 062050 000000 4$: .WORD 0 ::'DATA HEADER’’ POINTER GOES HERE 
9767 062052 104401 001223 TYPE »$CRLF 3" CARRIAGE RETURN'' & ‘LINE FEED'' 
9768 062056 010146 S$: MOV R1,-(SP) ZSAVE R1 
9769 062060 012001 MOV (RO) +,R1 : sPICKUP ‘DATA TABLE’ POINTER 
9770 062062 001415 BEQ 9$ ;BR IF NO DATA TO BE TYPED 
9771 062064 012000 MOV (RO)+,RO : sPICKUP "DATA FORMAT’ POINTER 
9772 062066 105720 6$: TSTB (RO)+ 22" OCTAL’* OR “DECIMAL"’ 
9773 062070 001003 BNE 7$ 37BR IF DECIMAL 
9774 062072 013146 MOV @(R1)+,-(SP) SAVE a(R1)+ FOR TYPEOUT 
9775 062074 104402 TYPOC ::GO TYPE--OCTAL ASCII(ALL DIGITS) 
9776 062076 000402 BR 8$ 
9777 062100 013146 MOV a(R1)+,-(SP) 7: SAVE a(R1)+ FOR TYPEOUT 
9778 062102 104405 TYPDS 3:GO TYPE--DECIMAL ASCII WITH SIGN 
9779 062104 005711 8$: TST (R1) ::1S THERE ANOTHER NUMBER? 
9780 062106 001403 BEQ 9$ :;BR IF NO 
9781 062110 104401 062130 TYPE ,11$ 7 TYPE TWO(2) SPACES 
9782 062114 000764 BR 6$ 7 ;LOOP 
$783 062116 012601 9$: MOV (SP)+,R1 + RESTORE R1 
9784 062120 012600 10$: MOV (SP)+,RO 7 RESTORE RO 
9785 062122 104401 001223 TYPE /$CRLF i 3 CARRIAGE RETURN’ & ‘LINE FEED'' 
9786 062126 000207 


RTS PC ; sRETUR 
9787 062130 020040 000 11$: ASCIZ / / Two) SPACES 





I 2 
CZRJHCO,RPO4/5/6 DSKLS_CTRLR2 MACY11 yobs ag 27-JUL-78 11:16 PAGE 230 SEQ 0228 
CZRJHC P12 10-NOV-77 11:09 NARY TO OCTAL (ASCII) AND TYPE 


$TYPOS: MOV a(SP) ,-(SP) 3zPICKUP THE MODE 
062357 MOVB > + «LOAD ZERO FILL SWITCH 
P 3 NUMBER OF DIGITS TO TYPE 
7 ADJUST RETURN ADDRESS 


BR $TYPON 
062357 2 ‘ ::SET THE ZERO FILL SWITCH 
062361 MO #6,$0M0 :zSET FOR SIX(6) DIGITS 
062356 : :;SET THE ITERATION COUNT 
MO 7 SAVE R3 
77 SAVE R4 
77 SAVE R5 
::GET THE NUMBER OF DIGITS TO TYPE 


;;SUBTRACT IT FOR MAX. ALLOWED 
3sSAVE IT FOR USE 
SOF ILL.R4 33GET THE ZERO FILL SWITCH 
12(SP) ,R5 $3 T NUMBER 
R3 73CLEAR THE OUTPUT WORD 
3;ROTATE MSB INTO ‘'C’’ 
shy DO MSB 
FORM THIS DIGIT 


: ;:GET LSB OF cates DIGIT 
062360 ee ie wo THIS DIGIT 


7$ ;BR 
177770 . :3GET RID. OF JUNK 
4$ 33 FOR 0 
: | SUPPRESS THIS 0? 
IF YES 
7:DON'T SUPPRESS a ity 0’S 


2 MAKE THIS DIGIT ASCII 
E II ae ALREADY 


3360 TYPE THIS DIGIT 
ae T BY 1 


: 7BR IF MORE TO DO 
IF DONE 


‘INSURE LAST DIGIT ISN'T A BLANK 
+260 DO THE LAST DIGIT 
TORE R5 


ORE R3 
000002 000004 73SET THE STACK FOR RETURNING 


3 RETURN 

3 sSTORAGE FOR ASCII DIGIT 

3; TERMINATOR FOR TYPE ROUTINE 
;:OCTAL DIGIT COUNTER 

32ZERO FILL SWITCH 

7 NUMBER OF DIGITS TO TYPE 
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CZRJHCO,RPO4/5/6 DSKLS 8 MACY11 30A(1052) 27=-JUL-78 11:16 PAGE 231 SEQ 0229 
CZRJHC .P12 10-NOV-77 11:09 TRAP DECODER 


010046 STRAP: RO, py re 3;SAVE_RO 
016600 000002 MO + GET oF s gies 


005740 ;BACK 

111000 33GET RIGHT BYTE OF TRAP 

;sPOSITION FOR INDEXING 
TABLE 


062416 _— (RO) ,RO 


R R 
$TRAP2: (SP) ,~(SP) 
000004 000002 MO 4(SP) ,2(SP) 


R 
$TRPAD: 
$ 


: RESTORE THE PSW 


STRAP2 

3 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

;sCALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

3 ;CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 

;;CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL) 

;-CALL=TYPDS TYPE DECIMAL NUMBER (WITH SIGN) 

; sCALL=GTSWR GET SOFT-SWR SETTING 

3: CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 

;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 

; TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 

; CAL TRAP+13(104413) MY LOCAL SCOPES 

7:CALL=CHECKD TRAP+14(104414) CHECK DVA,RDY,DPR,DRY 

73 CALL=WAT TRAP+15(104415) WAIT LOOP 





2 
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CZRJHC. P12 10=NOV=-77 11:09 POWER DOWN AND UP ROUTINES 
9864 062452 012737 062616 000024 S$PWRDN: MOV HSILLUP ,@A#PWRVEC ;;SET FOR FAST UP 
9865 062460 012737 000340 000026 MOV #340, asPWRVEC +2 + sPRIO:7 
9866 062466 010046 MOV RO,=-(SP) 77PUSH RO ON STACK 
9867 062470 010146 MOV R1,-(SP) 7zPUSH R1 ON STACK 
062472 010246 MOV R2,-(SP) 3ZPUSH R2 ON STACK 
9869 062474 010346 MOV R3,-(SP) 77PUSH R3 ON STACK 
9870 062476 010446 MOV R4,-(SP) 23 H R4 ON STACK 
9871 062500 010546 MOV R5,-(SP) : PUSH RS ON STACK 
9872 062502 017746 116432 MOV @SWR,- (SP) 7ZPUSH @SWR ON STACK 
9873 062506 010637 062622 MOV SP, SSAVR6 77 SAVE SP 
9874 062512 012737 062524 000024 MOV #SPWRUP ,AAPWRVEC ;;SET UP VECTOR 
9875 062520 000000 HALT 
9876 062522 000776 BR -~2 ; HANG UP 
9877 062524 012737 062616 000024 S$PWRUP: MOV MSILLUP ,@APWRVEC ;;SET FOR FAST DOWN 
9878 062532 013706 062622 MOV SSAVR6, SP 3:GET SP 
9879 062536 005037 062622 CLR SSAVR6 szWAIT LOOP FOR THE TTY 
9880 062542 005237 062622 1$: INC SSAVR6 szWAIT FOR THE INC 
9881 062546 001375 BNE 1$ ::0F WORD 
9882 062550 012677 116364 MOV (SP) +, @SWR :zPOP STACK INTO @SWR 
9883 062554 012605 MOV (SP)+,R5 :zPOP STACK INTO R5 
9884 062556 012604 MOV (SP) +,R4 3: zPOP STACK INTO R4& 
9885 062560 012603 MOV (SP)+,R3 :zPOP STACK INTO R3 
9886 062562 012602 MOV (SP)+,R2 : ;POP STACK INTO R2 
9887 062564 012601 MOV (SP)+,R1 + ¢POP STACK INTO R1 
9888 062566 012600 MOV (SP)+,RO z:POP STACK INTO RO 
9889 062570 012737 062452 000024 MOV ASPWRDN, a#PWRVEC iZSET UP THE POWER DOWN VECTOR 
9890 062576 012737 000340 000026 MOV #340, a4PWRVEC+2 ;:PRIO:7 
9891 062604 104401 TYPE REPORT THE POWER FAILURE 
9892 062606 062624 SPWRMG: .WORD SPOWER + POWER FAIL MESSAGE POINTER 
9893 062610 012716 MOV (PC) +, (SP) RESTART AT BEGIN 
9894 062612 017356 $PWRAD: .WORD BEGIN : CRESTART ADDRESS 
9895 062614 000002 RTI ' 
9896 062616 000000 $ILLUP: HALT sz THE POWER UP SEQUENCE WAS STARTED 
9897 062620 000776 BR 72 :; BEFORE THE POWER DOWN WAS COMPLETE 
9898 062622 000000 SSAVR6: 0 : PUT THE SP HERE 
9899 062624 005015 047520 042527 $POWER: .ASCIZ <15><12>' POWER’ 
coor 062632 000122 


9902 000001 - END 
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CZRJHCO,RPO4/5/6 DSKLS be MACY11 30A(1052) 27-JUL-78 11:16 PAGE 234 SEQ 0231 
CZRJHC.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


4330* 4342 4504* 4515 4640* 4650 
4637 


3012 
oa, Renee 4330 4504 4640 


a 


4489* 4494% 4626* 4630* 


9894 


7608 


9730 
7587 7596 
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CZRJHC..P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 

cc 015070 25778 

CHECKD= 104414 98624 

CHECKE 046214 rth: 1 5091 5256 5428 5565 5733 5893 6067 6194 6355 6516 6688 

CHECKT 046024 4177 4249 4409 4567 4786 4890 5044 5213 5376 5531 5686 5851 6013 
6161 6308 6473 6636 6811 72364 7425 7519 7685 9862 

CKSWR = 104407 9366 9718 9737 98574 

CLAREA 045706 4149 4932 4939 5574 5581 6203 6210 71824 

CLDISK 045770 2973 3071 3094 3149 4131 4170 4241 4401 4559 4677 4845 5032 5201 
5365 5486 5674 5840 6001 6116 6296 6461 6625 6799 6914 6943 6967 
72184 7414 7507 7684 7866 8270 

CLR = 000040 23004 3169 3208 3229 3256 3280 3308 3333 3373 3414 3473 3514 3550 
3607 3651 3707 3738 3765 3794 3822 3834 3852 3864 3886 3913 3949 
3959 3975 3985 4005 4033 4062 4098 7223 

COMHD 3 052514 4185 4273 4432 5050 5219 5381 5692 5856 6019 6314 6479 6641 6817 
7430 7523 7704 83614 

COMPA 053566 8513* 8563 86424 8784* 

COMPAR 046664 3128 4346 4363 4521 4655 4800 4950 5115 5284 5457 5592 5754 5919 
6093 6221 6375 6543 6718 6892 74454 7725 7751 

C 5636 4590 4790 4899 5540 6170 88994 

COUNTD 054234 87784 8782* 8798 

CPHALT 005123 14824 4178 4250 4410 4568 4787 4796 4891 4925 5045 5092 5214 5257 
5377 5429 5532 5566 5687 5734 5852 5894 6014 6068 6162 6195 6309 
6356 6474 6517 6637 6689 6812 6866 7426 7520 7686 

CR = 000015 4944 9507 9516 

CRC 047176 4163 4235 4395 4553 4730 4769 4869 5023 5183 5348 5510 5665 5822 
5983 6140 6287 6437 6606 6782 7408 7501 75564 7657 

CRLF = 000200 4944 9482 9516 

CSF = 24314 

csu— = 000010 24334 

CSs1 015032 1929 1932 1940 1947 1954 1964 1967 1971 1987 25624 4324* 4498%  4632* 
6932 7239 7243 7250 7294 7302 

CS2 015030 1929 1932 1940 1954 1987 2559H% 4490% 4495 4496* 4633* 4634* 

CYL 052654 4156* 4164 4228* 4236 4347 4388* 4396 5015* 5024 5175* 5184 5340* 5349 


5657* 5666 5814* 5823 5975* 5984 6279* 6288 6429* 6438 6598* 6607 6774* 


DAREAD 052730 8440 84524 

DATENV 050502 1983 4855* 5009* 5169* 5334% 5496*  5651*  5808*  5969*  6126* 6273* 6423* 6592* 
6768* 79394  8670*  8687*  8735*  8751* 

DAWORD 052734 ry th 5181* 5346*  5663* 5820* 5981* 6285*  6435* 6604* 6780*  7406*  7498*  7656* 

015022 1940 25564 

DCK = 100000 2 5237 5399 5419 5874 6037 6057 6497 6659 6679 6835 6855 7780 
7785 7801 7804 

DCL = 000100 2492H 

DCLEAR 015156 26314 

DDISP = 177570 4944 542 2705 

DENVL = 000200 23764 4500 

DE1 = 000040 23384 

DFF20 = 000002 23344 

DF1 012516 582 701 708 19944 

DF11 012534 690 20014 

DF14 012543 721 20044 

DF15 012553 730 20074 

DF 16 012556 741 20084 


DF17 012563 754 20104 
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CZRJHC.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 
DF2 012523 19964 
DF 20 012572 767 20134 
DF 21 012601 778 20174 
DF 22 2606 795 20194 
DF 24 012612 824 837 20214 
DF 26 621 850 20244 
DF 27 012631 865 20274 
DF3 012527 670 6 19984 
DF 30 012637 878 20294 
DF 31 012645 633 641 1008 1016 20324 
DF 32 012655 617 658 20354 
DF 35 2666 600 20384 
DF 34 012676 896 20414 
DF 35 012705 915 987 20444 
DF 36 012715 930 7 20474 
DF 37 012723 970 20494 
DF4O 012734 1033 20524 
DF42 014730 1039 1046 1073 22728 
DF44 014733 1053 1059 1066 1080 1087 1094 1101 1115 1122 1129 1136 1143 1150 
1157 1164 1171 1178 1199 22734 
DFS == 1 23334 
DF54 014740 1108 1185 1192 22754 
DH1 005451 577 696 15234 
DH11 005701 682 15514 
DH14 56 713 15704 
DH15 006255 727 15924 
DH16 305 735 15974 
DH17 43 746 16144 
DH2 005567 664 15374 
DH20 20 759 16334 
DH21 774 772 16514 
DH22 007110 789 16654 
DH24 7204 817 830 16764 
DH26 007362 841 16954 
DH27 007560 857 17174 
DH30 007716 871 17344 
DH31 010050 623 17504 
DH32 010246 606 647 17724 
DH33 0463 591 17964 
10662 886 18184 

DH35 011035 977 18364 

011232 921 938 18584 
DH37 011370 958 18754 
DH40 11607 1025 at 
DH42 014410 1037 1044 1071 22284 
DH44 014471 1051 1057 1064 1078 1085 1092 1099 1113 1120 1127 1134 1141 1148 

1155 1162 1169 1176 1197 22384 

DH54 014603 1106 1183 1190 22524 
DIGB = 000004 2335# 
DISK 054572 1974 4150 4198 4802 4952 4985 5144 5193* 5310 5357* 5594 5627 5783 


5832* 5945 5993* 6223 6250 6398 6568 6616* 6618* 6744 6792* 6793* 7638 


DISPLA 001142 5424 8 2705* 2712 9411* 9722* 
DISPRE 000174 495# 2712 
DLT 1 23104 


= 100000 
DL64 = 000020 23374 
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CZRJHC .P12 10-NOV-77 


4299 
8683 


73 
4503*  4639* 


494 
015054 1947 1954 
7309 7314 
015056 


4635 


8620 
19224 


19644 


014702 
014716 
00 


CROSS REFERENCE TABLE == USER SYMBOLS 


4458 4500 
8722 8732 


1964 1967 


1100 


8662* 


6848 
8752 


5246 


7834 7860 
8748 8908 


1971 1987 25714 


1114 1121 1128 


8677*  8679* 8725* 


81194 


5408 5718 5883 


8370 
9070 


4327* 


1135 


8729* 


6046 


8518 
9079 


4501* 


1142 


8741* 


6340 


SEQ 0234 


8524 
9C90 


St 
$C 
$C 
SE 
SE 
SE 
$E 
SE 
SE 
SE 
SE 
SE 
$f 


PARAM MYM 


PARMMMM 
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CZRJHCO,RPO4/5/6 DSKLS ms MACY11 30A(1052) 27=JUL=78 11:16 PAGE 238 SEQ 0235 
CZRJHC.P12 10-NOV-77 11:0 CROSS REFERENCE TABLE == USER SYMBOLS 


621 12194 


La Sieh 


DnRRWS 
—fNOWMUOAONUM 


1 
5 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


me ed ed td ed od 3 


RENAS 


4269* 907 4945* 

018 6034 Q3 6529 
* 

6656 7714 


ERUNIT 2464 
ERWORD 052774 





CZRJHCO,RPO4/5/6 DSKLS Bee 
CZRJHC.P12 10-NOV-77 11:0 


keaeeke | 


HDWS YN 
HEADER 054544 
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CROSS REFERENCE TABLE == USER SYMBOLS 


1932 1944 1954 1964 1967 1971 
5237 5399 5419 5710 5874 6037 


25654 
25684 


1977 
6057 


1987 
6332 


6123* 
6123 


25634 
6497 


4325* 
6659 


5332* 


4499* 
6679 


SEQ 0236 


4635* 
6235 


5494* 
6338 


5650* 
8180* 


6765* 
6765 





nan 


AAW 


AARMAANM 


| 
CZRJHCO,RPOG/5/6 DSKLS CTRLR2 MACY11 30A(1052) 27=JUL=78 11:16 PAGE 240 SEQ 0237 
CZRJHC.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE -- USER SYMBOLS 


HEDGAP 052670 8577* 
HEDSYN 052672 8599*  8624* 
HE 054556 


9516 
3749 4046 4074 4081 6919 6948 


2690* 
4495 


Boke 5179* 5344* 5661* 5818* 5979* 6283*  6433*  6602* 
ihre 5180* 5345* 5662* 5819* 5980*  6284*  6434*  6603* 


4502*  4638* 
7204 


024546 
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CZRJHC P12 10=-NOV-77 11:09 CROSS REFERENCE TABLE -- USER SYMBOLS 


024650 


78524 


4636* 


4460 4472 4614 4615 8519 
9249 9250 9252 9256 9257 


5804 5965 6269 6419 6588 
5492s 5804* 5965* 6269* 6419* 6588* 
3534 8273 


8614 
2996* 


015116 
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CZRJHCO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 27-JUL=78 11:16 PAGE 242 SEQ 0239 
C2RJHC.P12 10=-NOV=77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


025576 
025724 
026152 
027664 
100000 
015042 


000200 
015202 
000004 


1967 1971 1980 26024 7236% 7237* 7291* 7292*  7682* 7683* 
8120* 8361* 8362 8899  8900* 
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CZRJHCO,RPO4/5/6 DSKLS ™ MACY11 30A(1052) 27=JUL-78 11:16 PAGE 243 SEQ 0240 
CZRJHC.P12 10-NOV~77 11:09 CROSS REFERENCE TABLE -=- USER SYMBOLS 


4850* 5646* 5803* 5964* 6121* 
79354 8140 8178* 


4072* 6918* 6969* 


_ 
— 
= 
= 
— 
= 
a 
= 
= 
_ 
= 


9874* 9889* 


98604 
7239 
86474 


RE INTO 3 3110* 
4934 


6208* 





ee. 
CZRJHCO,RPO4/5/6 DSKLS gin’ MACY11 30A(1052) 27=JUL=78 11:16 PAGE 244 SEQ 0241 
CZRJHC P12 10-NOV-77 11 CROSS REFERENCE TABLE == USER SYMBOLS 


6720 6801 6894 7417 7511 7727 7752 
Ae De 26324 

4109 
014752 


015020 
014770 


015014 
014756 


014754 


015016 
014746 
014762 


014776 
014766 


015004 
014750 


94 
014744 4041* 4069s 


057306 
052762 8 
052756 4725 8584 8623 





J 3 
CZRJHCO,RPO4/5/6 DSKLS Ts MACY11 30A(1052) 27=JUL=78 11:16 PAGE 245 SEQ 0242 
CZRJHC .P12 10-NOV-77 11:09 CROSS REFERENCE TABLE -=- USER SYMBOLS 


28154 
8375*  8376* 


4574 4644 73764 
4632 


05 9065 
052656 5 5178* 5342* 5343* 5659*  5660*  5816* 
6600* 6601* 6776* 6777* 7402* 7403* 


056720 


033176 





kK 3 
CZRJHCO,RPO4/5/6 DSKLS Sip MACY11 30A(1052) 27=JUL-78 11:16 PAGE 246 SEQ 0243 
CZRJHC.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


SS? 033224 4818* 
STACK = 001000 


START 017362 
STARTA 017604 
STKLMT= 177774 
SWR 001140 


SWREG 000176 
SwO 000001 


2862 2883 


TOF = 000040 

TESDTE 015144 9124 9370* 
TESTAD 044706 

TIMCNT 046340 
TIMOT = 000004 3397* 

TKVEC = 000060 

TMPILL 015140 

TOLGAP 055600 

TOTALA 015136 3920 
TPVEC = 000064 94 


4498 4632 





L 3 
CZRJHCO,RPO4/5/6 DSKLS cms MACY11 30A(1052) 27=JUL-78 11:16 PAGE 247 SEQ 0244 
CZRJHC.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


052626 +43 h 83844 
004000 


O1s143 
050470 
017330 


021034 


0 4218 4222H 
022642 6988 6998 





M 3 
CZRJHCO,RPO4/5/6 DSKLS Bee MACY11 30A(1052) 27=JUL-78 11:16 PAGE 248 SEQ 0245 
CZRJHC.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


031652 


2966* 
29 


000010 
025502 





N 3 
CZRJHCO,RPO4/5/6 DSKLS_CTRLR2 MACY11 30A(1052) 27-JUL=78 11:16 PAGE 249 SEQ 0246 
CZRJHC.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


000002 
010000 


000100 
WAIT. & ere | 
WAT 104415 
015024 25574 4258 4322* 4488» 

040000 

000040 
054554 5667 


3110 7263 
9863 


5504* 
6452* 


8558* 


0 
054022 
004000 
000400 
056014 
054542 
= 000004 


055750 
054020 


052664 
022270 
025604 


5652* 


7245* 7252* 7297* 
1949 1951 2268 





B 4 
CZRJHCO,RPO4/5/6 DSKLS Sipe MACY11 30A(1052) 27=JUL-78 11:16 PAGE 250 SEQ 0247 
CZRJHC.P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


3219* 322 3245* 3269* 3297* 3322* 3350* 
3 3 3536 35 


9177* 


001216 


044642 
060730 
000000 


~ 061610 
001104 
062616 





C 4 
CZRJHCO,RPO4/5/6 DSKLS_CTRLR2 MACY11 30A(1052) 27-JUL-78 11:16 PAGE 251 SEQ 0248 
CZRJHC P12 10-NOV-77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


001135 
9745 


9392* 
9408* 


7010* 


xakakek 
axeaknke 


062622 9879*  9880* 
057374 
000117 2691 

568 967 9 


000000 
177777 
057622 


000200 
167770 





CZRJHCO,RPO4/5/6 DSKLS ms 


CZRJHC .P12 
SSWRMK= 000000 
STIMES 001212 


$TKB 001146 
332 


STKQIN 0603 

$TKQOU 060336 
$TKQSR 060340 
$TKS 001144 
STKSRV 22 
STMPO 001176 
STMP1 001200 
STMP2 001202 
STMPS 001204 
STMPG 001206 
STMPS) = 001210 
$™N == 000073 
$TPB 001152 
STPFLG 001157 
$TPS 001150 
STRAP 062362 
STRAP2 062404 
$TRP = 000016 


STRPAD 062416 
$STSTNM 001102 
STTYIN 061400 
$'YPBN= *eee0% 
STYPDS 057666 


$TYPE 060112 
STYPEC 060262 


10-NOV-77 


MACY11 30A(1052) 
CROSS REFERENCE TABLE == USER SYMBOLS 


27-JUL-78 
2823*  2843* 
3471*  3512* 
3947* 3973 
9527 9550 
9556* 9639 
95194 9532 
9562* 9563* 
9643* 4 
9646 

9516 9525* 
2914* 3173* 
4068* 4088 
7468 7565* 
1951 2791* 
7343* 7345 
7333* 7334 
7576 7688* 
27774 2779 
2969 29704 
3205 32064 
32784 3279 
3372 3411 
3547 35484 
37054 3706 
3789 3792 
3881 3884 
39734 3974 
4095 40964 
4222 42234 
46754 4676 
5121 5133 
5480 550 
5934 59354 
6330 6381 
67344 6736 
6965 69664 
98544 98554 
9366 9384 
96714 

95044 9505 


98564 


9406* 


9617 


D 4 
11:16 PAGE 252 


98574 


9411 


98584 


9415 


3206* 
3705* 
4096* 


98594 


9722 


3227* 
3736* 
6966* 


98614 


98624 


SEQ 0249 


98634 


E 4 
CZRJHCO,RPO4/5/6 DSKLS CTRLR2 MACY11 30A(1052) 27=-JUL-78 11:16 PAGE 253 SEQ 0250 
CZRJHC.P12 10-NOV=77 11:09 CROSS REFERENCE TABLE == USER SYMBOLS 


95154 


20564 
27454 
30774 
82474 
88 88 8 8 88644 
95194 97884 9897 


- ABS. 062634 000 


ERRORS DETECTED: 0 


CZRJHC ,CZRJHC. Se ttoes TOC :MC :ME : CND=SYSMAC .SML(400,1066],CZRJHC .P110400,1424] ,CZRJHC.P120400, 1424] 
RUN-TIME: 33 39 3 SECONDS 

RUN-TIME RATIO: 498/75=6.5 

CORE USED: 37K (73 PAGES) 


DOCUMENT PAGES: 250 





